Показать сообщение отдельно
  #3  
Старый 04.03.2013, 11:59
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Цитата:
Сообщение от morebeauty
...чтобы TEdit постоянно отображал значение нужной мне текстовой переменной и изменял его (при вводе текста).
Код:
procedure TForm1.Edit1Change(Sender: TObject);
begin
MyTextVar:= Edit1.Text; // Edit1.Text при вводе равно MyTextVar
end;
и гденить в коде
Код:
...
MyTextVar:= 'Изменяюсь';
Edit1.Text:= MyTextVar; // индикатор
...
Ответить с цитированием