Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.051 c
2-1138171812
Wolferio
2006-01-25 09:50
2006.02.19
DBGrid


10-1113456369
uli
2005-04-14 09:26
2006.02.19
Копирование документа


15-1138290638
Andy BitOff
2006-01-26 18:50
2006.02.19
Установка GDIplus под D2005 - проблемы.


15-1138622068
Pazitron_Brain
2006-01-30 14:54
2006.02.19
Доступ к FTP без домена


2-1138823176
Flint-1983
2006-02-01 22:46
2006.02.19
QReport