Создание события во время выполнения приложения
на примере переопределения события в 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; |