OnClick

Здравейте!

Искам да попитам как да създам обработчик на събитието OnClick на динамично създаден бутон?

var a: TButton;

begin
a:=TButton.create;
a.OnClick:=MyOnClick;
end;

procedure MyOnClick(Sender: TObject): TNotifyEvent;
begin
// Do What You Want To Do Here
end;

// Не съм сигурен за типа(TNotifyEvent), но виж какъв тип e TButton.OnClick

А, не. Извинявай, но процедура, която връща резултат!?
Всъщност е почти както си го написал:

var
a: TButton;
begin
a:=TButton.create;
a.OnClick:=MyOnClick;
end;

procedure TForm1.MyOnClick(Sender: TObject);
begin
// Do What You Want To Do Here
end;

Тънкият момент е, че MyOnClick трябва да е метод (например във формата) и то само с един аргумент от тип TObject.

Happy programming!

Ami, praw si, ama w 4:00 sutrin ne mislq mnogo mnogo za proceduri funkcii i vrustan resultat!

Blagodaria vi! I dano i az niakoga moga da vi buda polezen :))