[dr. F.I.N.]

Сообщение от Tyom

Возможно ли заблокировать вызов события OnChange при программном изменении? Оставить только изменение пользователем (как в ComboBox)

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Edit2.OnChange := nil;
  Edit2.Text := FloatToStr (StrToFloat(Edit1.Text) + 1);
  Edit2.OnChange := Edit2Change;
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  Edit1.OnChange := nil;
  Edit1.Text := FloatToStr (StrToFloat(Edit2.Text) + 1);
  Edit1.OnChange := Edit1Change;
end;