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

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

Назначение OnClick динамически созданному объекту [D7, WinXP]

Pank83 ©   (2005-11-10 10:52:00) 

Создал в коде кнопку, хочу назначить процедуру на OnClick. КАК?
Заранее спасибо.

---

Pank83   (2005-11-10 10:59:00) [1]

Огромнейшее THANKS!!!

---

ShiFT   (2005-11-10 10:57:00) [2]

 TForm1 = class(TForm)
   procedure ButtonClick(Sender: TObject);
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
 ShowMessage( 'Работает');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
var button : TButton;
begin
 button := TButton.Create( self);
 button.Parent := self;
 button.OnClick := ButtonClick;
end;

---

Наверх