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

Вниз

Создание dbgrideh на листе tabsheet компонента pagecontrol   Найти похожие ветки 

← →
carmen ©   (2006-10-24 20:49) [0]

Привет.
Нужно во время выполнения программы вывести форму з компонентом 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;

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

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

---

← →
Desdechado ©   (2006-10-24 20:57) [1]

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

---

← →
carmen ©   (2006-10-24 21:02) [2]

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

---

← →
Desdechado ©   (2006-10-24 21:05) [3]

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

---

← →
carmen ©   (2006-10-24 21:10) [4]

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

---

← →
carmen ©   (2006-10-24 21:12) [5]

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

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;

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

---

← →
Desdechado ©   (2006-10-24 21:17) [6]

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

---

← →
carmen ©   (2006-10-24 21:19) [7]

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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.058 c