Как присвоить подпрограмму????

← →
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;

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

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

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