TTabSheet *Sheet = new TTabSheet (Pages); // создаем страницу
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid(Sheet); // создаем компонент страницы
Создание компонентов во время исполнения программы
Есть прога с компонентом TPageControl. Нужно сделать так чтобы при нажатии кнопки добавлялась еще одна страница (типа TTabSheet). Собственно страницу я научился добавлять, но проблема как добавить на эту страницу какие-то компоненты, чтобы она была не пустая.
Я делаю так:
Еще пробовал делать так:
Я смотрел, поле ComponentCount увеличивается в обоих случаях, но страница пустая, на ней ничего нет.
Еще в мануале написано, что RemoveComponent можно применять для любого nonvisual компонента, а про InsertComponent такого не сказано, или все же вставлять можно только невизуальные компоненты?
Чего я неправильно делаю, и как делать правильно? :-)
.
Я делаю так:
Код:
Еще пробовал делать так:
Код:
TTabSheet *Sheet = new TTabSheet (Pages); // создаем страницу
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid((TComponent*)0); // создаем компонент без принадлежности
Sheet->InsertComponent(List); // вставляем компонент
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid((TComponent*)0); // создаем компонент без принадлежности
Sheet->InsertComponent(List); // вставляем компонент
Я смотрел, поле ComponentCount увеличивается в обоих случаях, но страница пустая, на ней ничего нет.
Еще в мануале написано, что RemoveComponent можно применять для любого nonvisual компонента, а про InsertComponent такого не сказано, или все же вставлять можно только невизуальные компоненты?
Чего я неправильно делаю, и как делать правильно? :-)
.
Код:
TTabSheet *Sheet = new TTabSheet (Pages); // создаем страницу
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid(Sheet);
List->Parent = Sheet;
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid(Sheet);
List->Parent = Sheet;
Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
Цитата:
Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
Большой сэнкс!
Просто до сих пор не было необходимости в динамическом создании компонентов - все можно было на формочках заранее наклепать, а тут на страницы полез, так неудобно что они пустые появляются :-))
.
Цитата:
Originally posted by 3D Bob
Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
Код:
TTabSheet *Sheet = new TTabSheet (Pages); // создаем страницу
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid(Sheet);
List->Parent = Sheet;
<.. добавление новой страницы ..>
TStringGrid* List = new TStringGrid(Sheet);
List->Parent = Sheet;
Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
Уж кто бы говорил ...
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTabSheet *pPage = new TTabSheet(PageControl1);
pPage->PageControl = PageControl1;
pPage->TabVisible = true;
pPage->Caption = AnsiString(" TabIndex: ") + IntToStr(pPage->TabIndex);
TStringGrid* sg = new TStringGrid(pPage);
sg->Parent = pPage;
sg->Align = alClient;
sg->Visible = true;//<<<<<<<<!!!!!!!!!
}
{
TTabSheet *pPage = new TTabSheet(PageControl1);
pPage->PageControl = PageControl1;
pPage->TabVisible = true;
pPage->Caption = AnsiString(" TabIndex: ") + IntToStr(pPage->TabIndex);
TStringGrid* sg = new TStringGrid(pPage);
sg->Parent = pPage;
sg->Align = alClient;
sg->Visible = true;//<<<<<<<<!!!!!!!!!
}
Цитата:
Originally posted by GIZMO
Уж кто бы говорил ...
Уж кто бы говорил ...
Код:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTabSheet *pPage = new TTabSheet(PageControl1);
pPage->PageControl = PageControl1;
pPage->TabVisible = true;
pPage->Caption = AnsiString(" TabIndex: ") + IntToStr(pPage->TabIndex);
TStringGrid* sg = new TStringGrid(pPage);
sg->Parent = pPage;
sg->Align = alClient;
sg->Visible = true;//<<<<<<<<!!!!!!!!!
}
{
TTabSheet *pPage = new TTabSheet(PageControl1);
pPage->PageControl = PageControl1;
pPage->TabVisible = true;
pPage->Caption = AnsiString(" TabIndex: ") + IntToStr(pPage->TabIndex);
TStringGrid* sg = new TStringGrid(pPage);
sg->Parent = pPage;
sg->Align = alClient;
sg->Visible = true;//<<<<<<<<!!!!!!!!!
}
Что за наезды?:(
Это не обязательно, у меня работает без этого.
Цитата:
Originally posted by 3D Bob
Что за наезды?:(
Это не обязательно, у меня работает без этого.
Что за наезды?:(
Это не обязательно, у меня работает без этого.
Учитывая это:
http://forum.codenet.ru/showthread.php?s=&threadid=25665
изречение:
- Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
ну, мягко говоря некорректно.:)
P.S.
- А эта странная фраза: "Собака - друг человека."
Цитата:
Originally posted by GIZMO
Учитывая это:
http://forum.codenet.ru/showthread.php?s=&threadid=25665
изречение:
- Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
ну, мягко говоря некорректно.:)
P.S.
- А эта странная фраза: "Собака - друг человека."
Учитывая это:
http://forum.codenet.ru/showthread.php?s=&threadid=25665
изречение:
- Сначало бы просто научился добавлять компоненты, а потом уже и на страницы целиться.
ну, мягко говоря некорректно.:)
P.S.
- А эта странная фраза: "Собака - друг человека."
Хех) Ок:)