求教Edit事件问题..

Question

请问各位大侠...
例:
var
  gz,sjts:integer;
begin
  gz:=strtoint(Edit1.Text);
  sjts:=strtoint(Edit2.Text);
  Edit3.Text:=inttostr(gz+sjts);
end;
请问用什么事件Edit3能够直接得到Edit1和Edit2相加的值呢..注:不能用button进行记算,最好是输入Edit2的值之后Edit3的值能自动产生..

Answer 1

在edit2的onExit事件里面写就可以了
Edit3.text:=IntToStr(StrToInt(edit1.text)+StrToInt(Edit2.text));

Answer 2

procedure TForm1.Edit1Change(Sender: TObject);
begin
if (strtoint(edit1.Text)>0) and (strtoint(edit1.Text)>0) then
edit3.Text:=。。
end;
edit1 和edit2 都在一个 Change事件里

Answer 3

改正一下 哈哈~~~procedure TForm1.Edit1Change(Sender: TObject);
begin
if (edit2.Text='') or (edit1.Text='') then exit;
if (strtoint(edit1.Text)>0) and (strtoint(edit2.Text)>0) then
edit3.Text:=inttostr(strtoint(edit1.Text)+strtoint(edit2.text));
end;

Answer 4

edit1 和edit2 都在一个 Change事件里正解。。