|
|
|
|
Создание события во время выполнения приложения
на примере переопределения события в Memo:
|
memo.onchange:=memo1Change; procedure TForm1.Memo1Change(Sender: TObject); begin panel1.caption:='Содержимое было изменено';
end;
|
|
|
|
|
|
 |
| |
|
|
|
|
|
|
|
| |
|
|
|
|
|
|
|
|
|
|
memo.onchange:=memo1Change; procedure TForm1.Memo1Change(Sender: TObject); begin panel1.caption:='Содержимое было изменено';
end;
|
|
|
|
|
|