procedure TPDfrm.churukushuliangChange(Sender: TObject);
//本次数量编辑框的onChange事件代码
begin
  if (churukushuliang.Text<>'') and (shuliang.Text<>'') and (rbchu.Checked :=true) then
    shuliang.Text:=inttostr(strtoint(churukushuliang.Text)+strtoint(shuliang.Text));  if (shuliang.Text >churukushuliang.Text ) and (churukushuliang.Text<>' ') and (shuliang.Text<>' ') and (rbru.Checked :=true) then
    shuliang.Text:=inttostr(strtoint(shuliang.Text)+strtoint(churukushuliang.Text))
  else
   application.MessageBox('库存量不足!','提示信息',mb_ok);
   churukushuliang.SetFocus;    end;我看了之前做的也是这样的用法呀