Динамическое изменение обработчика кнопки

← →
Brain Force (2005-06-04 10:09) [0]

Добрый день.
Есть процедура, например MyProc. Как назначить эту процедуру обработчиком нажатия кнопки?

← →
Brain Force (2005-06-04 10:23) [1]

Все спасибо не надо. Сам разобрался. Если кому надо вот код:

procedure ButtonClick ( Self : TButton ; Sender : TButton ) ;
begin
ShowMessageFmt ( "Нажата кнопка %s", [ Sender.Caption ]) ;
ShowMessageFmt ( "Self.Name = %s", [ Self.Name ]) ;
end ;

procedure AssignButtonClick ( const Button : TButton ) ;
var Method : TMethod ;
begin
Method.Code := @ButtonClick ;
Method.Data := Button ;
Button.OnClick := TNotifyEvent ( Method ) ;
end ;

Динамическое изменение обработчика кнопки Найти похожие ветки