Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Создание объектов 


asdf   (2002-01-30 13:24) [0]

Подскажите пожалуйста, как создать на форме объекты (например, Label), число которых заранее не известно.
Может можно создать переменную, как объект?
Спасибо.



MBo   (2002-01-30 13:53) [1]

var l:tlabel;
larr:array of tlabel;

for i:=1 to 5 do begin
l:=tlabel.create(self);
l.parent:=self;
l.setbounds(...
l.name:= - по желанию
end;
аналогично с массивом или списком
larr[i]:=tlabel.create(self);
...



asdf   (2002-01-30 14:08) [2]

Спасибо будем пробовать,
еще можно вопрос:
lb: TLabel;
lb.onClick:=TfrmMain.lbClick(Sender);

пробовал lb.onClick:=TfrmMain.lbClick(Sender); и другое - не получается :-(

Спасибо.



asdf   (2002-01-30 14:29) [3]

Все разобрался.
Большое спасибо



asdf   (2002-01-30 15:01) [4]

Создал объекты, назначил событие, но не могу определить какая метка его инициировала(событие одно на всех).
lb.name и другие параметры показывают значения последнего созданного объекта. Как определить какой обект вызвал событие.

Спасибо.



Виктор Щербаков   (2002-01-30 15:04) [5]

Объект Sender
Например:
(Sender as TLebel).Color := clBlue;



asdf   (2002-01-31 06:12) [6]

Большое всем спасибо - все работает.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
3-42663           MVova                 2002-01-18 14:00  2002.02.14  
Вопрос: Как переустановить 2.5 поверх 2.6?


6-42822           vinni2000             2001-11-23 09:54  2002.02.14  
Как вы видете эту проблему?


14-42863          petr_v_a              2001-12-26 21:58  2002.02.14  
>Yuvich личное


7-42888           Русский               2001-11-10 00:35  2002.02.14  
Поделитесь кодом а :)))


14-42870          BWG                   2001-12-24 14:47  2002.02.14  
Требуется написать терминалку