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

Назначение процедуры действию динамически созданного компонента   Найти похожие ветки 

← →
smus ©   (2006-01-29 17:36) [0]

Здравствуйте. Допустим я динамически, через массив, создал компоненты, например Label"ы, теперь мне нужно, чтоб по клику на определённый Label исполнялась процедура с определённым параметром. Подскажите, как это сделать? Вот мой код, там где вопрос, куда я вставлял название процедуры(только не бейте меня:)) - выдавало incompatyble types. Спасибо.
var
Lbl : array of TLabel;
I:integer;
for I := Low(Lbl) to High(Lbl)
do begin
Lbl[I] := TLabel.Create(self);
Lbl[I].Parent := ScrollBox1;
...
Lbl[I].OnClick := ?
end;

---

← →
Kerk ©   (2006-01-29 17:37) [1]

Процедура-обработчик должна быть методом класса.
Вставь ее например в private у формы.

---

← →
smus ©   (2006-01-29 17:42) [2]

То же: [Error]Incompatyble types:"TNotifyEvent" and "procedure, untyped pointer or untyped parameter".

---

← →
Kerk ©   (2006-01-29 18:00) [3]

smus ©   (29.01.06 17:42) [2]

Покажи код?
Процедуру-обработчик правильно задаешь?

procedure ButtonOnClick(Sender: TObject) ?

---

← →
VirEx ©   (2006-01-29 18:12) [4]

>  [3] Kerk ©   (29.01.06 18:00)

ты же под винды не программишь и даже не хочешь)) всё перл да перл))

---

← →
Kerk ©   (2006-01-29 18:14) [5]

VirEx ©   (29.01.06 18:12) [4]
ты же под винды не программишь и даже не хочешь))

Дык а кушать хочется :)
Другие скиллзы пока не готовы :)

---

← →
Карелин Артем ©   (2006-01-29 21:27) [6]

procedure ButtonOnClick(Sender: TObject);
****


> Lbl[I].OnClick := ButtonOnClick

---

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

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



Память: 0.46 MB
Время: 0.047 c