Попытка вычисления не удаётся.
Код:
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)