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

Вниз

обработать OnClick   Найти похожие ветки 

← →
sammy   (2002-03-29 07:11) [0]

Создал динамическую кнопку

b := TButton.Create(Self);
b.Parent := Self;
b.Visible:=true;
b.Left:=50;
b.Top:=25;
b.Caption:="ssss";
b.Name :="button1";

не получается обработать OnClick

b.OnClick:=bclick;

где и как надо объявлять bclick?

---

← →
Song ©   (2002-03-29 07:14) [1]

Эта процедура объявляется также как и все остальные для модуля.

....
Procedure bClick(Sender:TObject);
....

Procedure TForm1.bClick(Sender:TObject);
Begin
End;

---

← →
sammy   (2002-03-29 07:18) [2]

thanks!

---

← →
Anatoly Podgoretsky ©   (2002-03-29 11:10) [3]

Song © (29.03.02 07:14)
Только не модуля, а должна быть методом класса, в примере правильно.

---

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

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

Наверх

Память: 0.47 MB
Время: 0.015 c