ansaurus

Question

How to 'insert' a new page inside a TPageControl

Answer 1

+3 A:

You can try this

procedure TForm13.Button1Click(Sender: TObject);
Var
   tabSheet  : TTabSheet;
   AComponent: TComponent;
   aIndex    : Integer;
begin
   aIndex:=-1;
   AComponent := FindComponent('TabSheet1');
   if Assigned(AComponent) then
     if AComponent is TTabSheet then
     aIndex:=TTabSheet(AComponent).PageIndex;//get the index of the 'TabSheet1'  

   tabSheet:=TTabSheet.Create(PageControl1) ;
   tabSheet.PageControl:=PageControl1;
   tabSheet.Caption:='My TabSheet'+IntToStr(PageControl1.PageCount);
   if aIndex>-1 then
   tabSheet.PageIndex:=aIndex; //Set the index of the new TabSheet
end;

Update

In Designtime you must set the PageIndex Property to the PageIndex of the TabSheet1.

Bye.

RRUZ 2009-10-12 06:22:13

There's a lot of code in that example. The part that actually *answers the question* is the last line, where `PageIndex` gets assigned a new value.

Rob Kennedy 2009-10-12 06:26:44

I should have said inserting at design time. (May be i should edit my question?)

volvox 2009-10-12 06:32:12

That's what i thought. OK - thank for the code anyway it will be usefull.

volvox 2009-10-12 06:39:55

I'd vote this answer up if it wasn't a textbook example on how to (mis-)use indentation and white space to make code less readable.

mghie 2009-10-12 06:55:12

So fix it, Mghie. It's a wiki.

Rob Kennedy 2009-10-12 14:37:18

Answer 2

+6 A:

Rightclick on the pagecontrol, and click New Page

After that, set the PageIndex property to place the new page where you want to have it.

Wouter van Nifterick 2009-10-12 06:50:45

ansaurus

tags:

views:

answers:

How to 'insert' a new page inside a TPageControl

related questions