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

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

Создание dbgrideh на листе tabsheet компонента pagecontrol [D7, WinXP]

carmen ©   (2006-10-24 20:49:00) 

Привет.
Нужно во время выполнения программы вывести форму з компонентом pagecontrol, с количеством вкладок которые записаны в базе данных, на кажной вкладке нужно создать dbgrideh.
Делаю так:

With Q_SL_Notes Do
 Begin
  ExecQuery;
  While Not Eof Do
   Begin
    With TTabSheet.Create(Page_List_Notes) Do
     Begin
      PageControl:=Page_List_Notes;
      Name:='pg'+FieldByName('code_notes').AsString;
      Caption:=FieldByName('name_notes').AsString+IntToStr(PageControl.ActivePageIndex);
      DBGridEh_Create:=TDBGridEh.Create(Self);
      DBGridEh_Create.Parent:= что здесь надо прописать??????
      DBGridEh_Create.Align:=alClient;
     End;
    Next;
   End;
 End;

где моя ошибка?

Заранее благодарен

---

carmen   (2006-10-24 21:19:00) [1]

спасибо, оказывается все элементарно просто :)

---

Desdechado   (2006-10-24 21:17:00) [2]

на кой тут Parent_Grid .Parent?

---

carmen   (2006-10-24 21:12:00) [3]

переписал следующим образом:

Var Parent_Grid: TTabSheet;
begin
With Q_SL_Notes Do
 Begin
  ExecQuery;
  While Not Eof Do
   Begin
    Parent_Grid:=TTabSheet.Create(Page_List_Notes);
    With Parent_Grid Do
     Begin
      PageControl:=Page_List_Notes;
      Name:='pg'+FieldByName('code_notes').AsString;
      Caption:=FieldByName('name_notes').AsString;
      DBGridEh_Create:=TDBGridEh.Create(Self);
      DBGridEh_Create.Parent:=Parent_Grid.Parent;
      DBGridEh_Create.Align:=alClient;
     End;
    Next;
   End;
 End;

грыд создается но при переключении на другии листы его нет

---

carmen   (2006-10-24 21:10:00) [4]

а тип переменной х какой?

---

Desdechado   (2006-10-24 21:05:00) [5]

x := TTabSheet.Create(Page_List_Notes);
With x Do
ку?

---

carmen   (2006-10-24 21:02:00) [6]

а конкретней можна

---

Desdechado   (2006-10-24 20:57:00) [7]

Если б на переменных не экономил, присвоил бы свой табщит ей, тогда и в качестве парента подошел бы.

---

Наверх