Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.29;
Скачать: 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 вся ветка

Текущий архив: 2005.06.29;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.048 c
8-1110129381
anamal
2005-03-06 20:16
2005.06.29
AlphaBlend


1-1117877764
Anatoly Podgoretsky
2005-06-04 13:36
2005.06.29
Занимательные наблюдения над плавающей запятой


6-1112032939
Nes
2005-03-28 22:02
2005.06.29
* HTTP Tunneling? Бред или...


14-1117742518
Cerberus
2005-06-03 00:01
2005.06.29
Чёто не пойму


1-1117947403
Chak
2005-06-05 08:56
2005.06.29
по нажатию клавиши ENTER из одной labelededit1 в другую labeleded