Delphi (Lazarus) — динамические объекты, и их события?

Question

[MainNika]

Доброго время суток, гуру Delphi и не только. Случай вот такой:

Описана процедура
procedure tform1.onbclick(Sender: TObject);

Создаю в процессе выполнения программы кучку Button'ов в массив, и назначаю им эту процедуру как событие OnClick
ArBut[i].OnClick=@onbclick;

Все работает, кроме параметра Sender. Как нужно его правильно указывать при таком случае? Или как можно это обойти?


upd:

Все работает. Перепутал в procedure onbclick параметры name и caption. а ведь именно name при динамическом создании я не указывал, поэтому его запрос был пустой и я думал что ничего не работает.

Answer 1

[Horse]

ArBut[i].OnClick=@onbclick;

Comments

[Horse]

ArBut[i].OnClick=onbclick;
надо. Если это конечно не прикол lazarus.
(sender as TFrmButton) — или как там батон называется — должен работать. В чем проявляется его неработоспособность?

[MainNika]

Да, да, я на спящую и усталую голову перепутал параметры, спасибо за то что заставили еще раз перепроверить каждую строчку.
(sender as TButton).name и (sender as TButton).caption, ведь при динамическом создании я заполнял лишь caption, и соответственно запрос name у меня получался пустой. Нужно мне быть внимательнее прежде чем в отчаянии писать q&a.

[MainNika]

Все работает. Я ошибся совсем не там где думал.

[Horse]

:)