[Tyom]

Добрый день!
Есть два поля Edit. При изменении пользователем Edit1 хочу изменять поле Edit2, а по изменению пользователем Edit2 изменять Edit1.
Подскажите, как это можно реализовать? Я так понимаю, что событие OnChange не подходит, так как вызывается и при программном изменении поля.

[Tyom]

Попытка вычисления не удаётся.

Код:

1 2 3 4 5 6 7 8 9

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

Админ: Пользуемся тегами при оформлении кода!

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

[Alegun]

Лучше задействовать обработчики EditKeyUp, но без проверок возможны ошибки конвертации, если вместо цифирок буковки пользователь введёт

[dr. F.I.N.]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

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;

[NumLock]

Можно один обработчик OnChange использовать у обоих полей:

Код:

1 2 3 4 5 6 7 8

procedure TForm1.EditChange(Sender: TObject); begin   if Tag=-2147483648 then Exit;   Tag:=-2147483648;   if Sender=Edit1 then Edit2.Text:=Edit1.Text+'Edit1'   else if Sender=Edit2 then Edit1.Text:=Edit2.Text+'Edit2';   Tag:=0; end;