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

Назначение OnClick динамически созданному объекту   Найти похожие ветки 

← →
Pank83 ©   (2005-11-10 10:52) [0]

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

---

← →
ShiFT   (2005-11-10 10:57) [1]

 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;

---

← →
Pank83 ©   (2005-11-10 10:59) [2]

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

---

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

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



Память: 0.45 MB
Время: 0.049 c