那你这样好了 procedure TForm1.Edit2Change(Sender: TObject); begin if edit2.Focused then edit1.Text:=inttostr((strtoint(edit1.Text)- strtoint(edit2.Text))); end;
----------------------------------------------
-
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin if Key = Char(VK_RETURN) then edit1.Text:=IntToStr(strtoint(edit1.Text)-strtoint(edit2.Text)); end;
procedure TForm1.Button1Click(Sender: TObject); begin close; end;
procedure TForm1.Edit2Change(Sender: TObject); begin if edit2.Focused then if not (edit2.Text=') then begin i1:=strtoint(edit2.Text); edit1.Text:=inttostr(i2-i1); end; end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if not (edit1.text=') then i2:=strToint(edit1.Text); end;