Цитата:
Сообщение от 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;
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
|