Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как автоматически создать N количество CheckBox'ов? [D7, WinXP]


fuzzu ©   (2004-12-05 21:12:00) 

История такая: на Form2 загружается таблица, на Form1 нужно создать столько CheckBox'ов, сколько столбцов в таблице, и чтобы названия столбцов сопоставлялись каждому CheckBox'у.


fuzzu   (2004-12-05 22:27:00) [1]

Спасибо.
Оказалось, совсем легко... :-()


Zacho   (2004-12-05 21:31:00) [2]

Например, так:

for i:=0 to Form2.MyDataSet.Fields.Count-1 do
begin
 with TCheckBox.Create(Form1) do
 begin
   Parent:=Form1;
   Caption:=Form2.MyDataSet.Fields[i].DisplayLabel;
   // Далее устанавливаем нужные width, height, top, left
   // и прочие св-ва чекбокса.
 end;
end;


novice__man   (2004-12-05 21:30:00) [3]

Создай динамический массив компанентов.
ListOfCheckBox: array of tCheckBox;
и вперед! На этом сайте как в форуме так и FAQ неоднократно встречались обсуждения массива компанентов.


Наверх

Титульная страница Поиск, карта сайта Написать письмо