Sender

[Bummi]

ohne Button

Delphi-Quellcode:

procedure TForm2.Edit2Change(Sender: TObject);
var
  d:Double;
begin
  If TryStrToFloat(TEdit(Sender).Text,d) then
    if Sender=Edit1 then
      begin
      Edit2.OnChange := nil;
      Edit2.Text := FloatToStr(d/2);
      Edit2.OnChange := Edit2Change;
      end
    else
      begin
        Edit1.OnChange := nil;
        Edit1.Text := FloatToStr(d/2);
        Edit1.OnChange := Edit2Change;
      end;

end;