| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое изменение обработчика кнопки [D6, WinXP]

Brain Force ©   (2005-06-04 10:09:00) 

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

---

Brain Force   (2005-06-04 10:23:00) [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 ;

---

Наверх