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

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

Динамическое создание компонентов [D7, XP]

Страницы:   < 1 2 >

Sergey_b ©   (2006-09-01 08:44:00) 

Здравствуйте все.
Следующий вопрос:
var
 i: integer;
 Page: TTabSheet;
 Tree: TTreeView;
 But: TButton;
begin
 i:= 0;
 with IBQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('select NMK_CLASSIF_TYPE_NOTE, NMK_CLASSIF_TYPE_REF from NMK_CLASSIF_TYPE');
     Open;
     First;
   end;
 repeat
   Page:= TTabSheet.Create (Form1.PageControl1);
   Page.PageControl := Form1.PageControl1;
   Page.Caption := IBQuery1.FieldByName('NMK_CLASSIF_TYPE_NOTE').AsString;
   Tree:= TTreeView.Create(Page);
   Tree.Parent := Page;
   Tree.Name:='Tree'+inttostr(i);
   Tree.Visible := true;
   i:= i + 1;
   But:= TButton.Create(form1.PageControl1.ActivePage);
   But.Parent:= form1.PageControl1.ActivePage;
   IBQuery1.Next;
 until IBQuery1.Eof;
процедура берет название страниц из БД и создает их (страницы) динамически... На странице должен быть компонент TTreeView. Странички делаются, а деревья - нет, хотя, кажется и деревья делаются, но их не видно на страницах.
Уважаемые знатоки, подскажите решение

---

Sergey_b   (2006-09-01 11:04:00) [21]

> Плохиш ©   (01.09.06 10:56) [1]
> Tree.Align := alClient ?

Даже не компилируется - пишет, что alClient не знает. Почему?...

---

Sergey_b   (2006-09-01 10:59:00) [22]

> Ega23 ©   (01.09.06 10:57) [2]
> Либо [1], либо явно размеры задавай (Top, Left, Width, Height)

задавать размеры все равно не работает

---

Sergey_b   (2006-09-01 10:58:00) [23]

Нет. А есть разница?

---

Ega23   (2006-09-01 10:57:00) [24]

Либо [1], либо явно размеры задавай (Top, Left, Width, Height)

---

Плохиш   (2006-09-01 10:56:00) [25]

Tree.Align := alClient?

---

Страницы:   < 1 2 >

Наверх