Скачать: CL | DM;

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

← →
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 ;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.023 c