Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.21;
Скачать: CL | DM;

Вниз

Run-time создание компонент   Найти похожие ветки 

 
Геральт   (2002-02-03 21:18) [0]

Как создать в режиме run-time несколько однотипных компонент (TCheckBox)? Конструкция с циклом for и при одной переменной New:TCheckBox вызывает в дальнейшем ошибку при обращении к созданным компонентам с помощью FindComponent. Массивы я бы не хотел использовать. Или у меня нет выбора?


 
Вадим ©   (2002-02-03 22:00) [1]

var
new: TCheckBox;
i: integer;
begin
for i := 1 to 20 do
begin
new := TCheckBox.Create(self);
new.Parent := Form1;
end;
end;


 
Anatoly Podgoretsky ©   (2002-02-03 22:21) [2]

Неплохо бы объекту дать имя, для поиска с помощью FindComponent и Parent := Self;
Также не помещает убрать переменную New как ненужную


 
Atrem   (2002-02-03 23:17) [3]

По идеи так
var i:integer;
for i:=1 to 20 do with tcheckbox.create(self) do
begin
name:="Check"+inttostr(i);
parent:=form1;
end;


 
Геральт   (2002-02-04 10:10) [4]

Спасибо, все работает, видимо мне вместо tcheckbox.create(ScrollBox1) надо было писать tcheckbox.create(self). Хотя почему, я честно говоря пока не понял. Но это уже не важно. Еще раз спасибо


 
DMN ©   (2002-02-04 11:26) [5]

Потому, что усли писать tcheckbox.create(ScrollBox1), то и FindComponent надо вызывать от ScrollBox"a: ScrollBox1.FindComponent(...).


 
Геральт   (2002-02-06 15:46) [6]

DMN - понял, учту на будующее



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

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

Наверх




Память: 0.48 MB
Время: 0.01 c
1-66619
Nikita
2002-02-06 13:08
2002.02.21
Как найти последнюю ячейку с данными в EXCEL


3-66454
ilysha
2002-01-27 18:43
2002.02.21
Автоинкрементное поле и TUpdateSQL


14-66686
Gayrus
2001-12-27 03:12
2002.02.21
C++ -> Delphi


1-66529
TAN
2002-02-06 13:24
2002.02.21
DBGrid


3-66427
___Nikolay
2002-01-26 16:58
2002.02.21
!!! СРОЧНО PLZ !!! ___КАК АРХИВИРОВАТЬ ФАЙЛЫ В БД____