Вы должны вручную создать метод, который будет иметь тот же самый набор
параметров, как и у события, которое вы хотите обработать. Затем вы должны
вручную установить свойство OnXXX, чтобы она указывала на метод, который вы
создали.
Пример:
|
|
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
FMyButton: TButton;
protected
procedure Button1Click(Sender: TObject); {Кодируем это вручную,
для соответствия}
{структуре
TNotifyEvent}
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FMyButton := TButton.Create;
{Здесь устанавливаем позицию, заголовок и все
остальное}
FMyButton.OnClick := MyButtonClick;
end;
procedure TForm1.MyButtonClick(Sender: TObject);
begin
ShowMessage('Эй! Ты нажал на мою
кнопку!');
end; | |