请问在edit7的什么事件里面写当焦点到edit7的时候自动计算结果

Question

OnEnter事件时写edit7.text:=inttostr(strtoint(edit4.text)*strtoint(edit5.text)*strtoint(edit6.text));

Answer 1

procedure TForm1.Edit7Enter(Sender: TObject);
begin
edit7.Text :=inttostr(strtoint(edit4.Text)* strtoint(edit5.Text)*strtoint(edit6.Text));
end;

Answer 2

你用query或table的oncalcfield事件中，这样 单价*数量*克数一输完，总价就出来了，但你最好用dbeditquery1.fieldbyname('总数').asfloat:=query1.fieldbyname('单价').asfloat*query1.fieldbyname('数量').asfloat*query1.fieldbyname('克数').asfloat;

Answer 3

楼上是可以的，strtoint，不是那么好改strtointdef好些

Answer 4

procedure TForm1.Edit7Enter(Sender: TObject);
begin
  edit7.Text := inttostr(strtointdef(edit4.text,0)*strtointdef(edit5.text,0)*strtointdef(edit6.text,0));
end;

Answer 5

jyqkr(酷鱼) (  ) 
的是计算字段我知道
我在grid用过但怎样赋这值给edit7呀

Answer 6

goodhazel(小猪
 9551226(9551226)
谢谢
可以了