Цитата:
|
Сообщение от icWasya
прямо так
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit2.Text:= Edit1.Text;
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
Edit1.Text:= Edit2.Text;
end; делать нельзя. Получите преполнение стека  |
можно, setter сначала сравнивает новое значение со старым, а потом устанавливает свойство:
Код:
procedure TControl.SetText(const Value: TCaption);
begin
if GetText <> Value then SetTextBuf(PChar(Value));
end;