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

Как присвоить подпрограмму????   Найти похожие ветки 

← →
Otter ©   (2003-07-28 03:34) [0]

Люди, скажите кто-нито, как присвоить элементу управления, генерируемому во время выполнения, подпрограмму-обработчик?? Я создаю 15 Speedbutton-ов и хочу отследить нажатие на них!....

---

← →
XenonXX   (2003-07-28 03:51) [1]

Делаешь speedbutton1 в дизайн-тайме и создаешь OnClick, прописываешь в нем все что нужно, меняешь имя speedbutton1 и опять делаешь OnClick, уже новый... так делаешь столько процедур, сколько тебе надо (15 точно ненадо, ведь номер нажатой извесен) имена их будут <имя_кнопки>click(speedbutton1click). Потом стираешь тот speedbutton что создавал сначала и:
.....
var
Mas_SB:array[1..15] of TSpeedButton;
....
Mas_SB[i].OnClick:=speedbutton1click;
.....
Mas_SB[i].OnClick:=<имя_кнопки>click;

Если хочешь убрать отработчик:
Mas_SB[i].OnClick:=nil;

---

← →
Rouse_ ©   (2003-07-28 04:24) [2]

> XenonXX (28.07.03 03:51)
Мне кажется, что спрашивается про (Sender as TSpeedButton).Name или Tag или Caption

Если так, то при создании указывать единую процедуру. Например:

NewSB := TSpeedButton.Create(Self);
NewSB.OnClick := SpeedButton1Click;

Желаю успехов

---

← →
KSergey ©   (2003-07-28 08:50) [3]

http://www.delphikingdom.com/helloworld/runtime_comp.htm

---

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

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



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