![]() |
|
|
#1
|
|||
|
|||
|
У меня возникла одна проблема - у кнопки, создаваемой в run-time, не могу написать Events. Подскажите пожалуйста, как это можно обойти или исправить?
? |
|
#2
|
|||
|
|||
|
Надо написать в классе формы процедуру типа TNotifyEvent и присваивать ее нужному обработчику.
например: Код:
TForm1 = class(TForm)
...
protected
procedure ButtonClick(Sender : TObject);
...
end;
...
begin
MyButton := TButton.Create(Self);
MyButton.OnClick := ButtonClick;
end;
procedure TForm1.ButtonClick(Sender : TObject);
begin
ShowMessage('My runtime button clicked!');
end; |
|
#3
|
|||
|
|||
|
Спасибо большое, теперь я разобрался.
|