Page Control

[metalistas2]

How make thant I can add many pages to pagcontrol then delite and add again with no program crash

[Blaazen]

Once you have PageControl1: TPageControl on your form you can do:

Code: [Select]

with TTabSheet.Create(self) do
    begin
      Parent:=PageControl1;
      // here you can set other parameters
    end;
for creating new page and

Code: [Select]

  PageControl1.ActivePage.Free;
or

Code: [Select]

PageControl1.Pages[PageControl1.PageIndex].Free;
for deleting active page
or

Code: [Select]

PageControl1.Pages[i].Free;i can be one of your pages.

[metalistas2]

no no ... Problem is .. then i creating " Add new tab" with pagecount ...

see

in My editor is 2 tabs named 'tab 1' and 'tab 2'

I delite 'tab 1' and adding new tab program crash ... I dont know how make normal tabing

[Blaazen]

This works (TabSheet1 is added in Object Inspector):

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
begin
  TabSheet1.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TabSheet1:=TTabSheet.Create(self);
    with TabSheet1 do
      begin
        Parent:=PageControl1;
        Caption:='TabSheet1';
      end;
end;               

[metalistas2]

Damn Yeah Thanks ...!!!!!!  

but soething is wrong with :

var's  tabs: TTabSheet;

procedure TForm1.MenuItem40Click(Sender: TObject);
begin
  tabs.ActivePage.Free;
end;

I get :

Source\main.pas(95,8) Error: identifier idents no member "ActivePage"

[Blaazen]

Yes, error message is right. ActivePage is member of TPageControl

You should write:

Code: [Select]

PageControl1.ActivePage.Free;

[metalistas2]

Thanks Again ;]

And how make activepage ?

[Blaazen]

Code: [Select]

PageControl1.ActivePage:=TabSheet1;
OR

Code: [Select]

PageControl1.ActivePage:=PageControl1.Pages[0];


[metalistas2]

not working ://

here is my source

    tabs:=TTabSheet.Create(self);
    with tabs do
      begin
        Parent:=PageControl1;
        Caption:='~Empty~';

      end;
      PageControl1.ActivePage:=TabSheet1;
      editor := TSynEdit.Create(nil);
      editor.parent := TabSheet1;
      editor.Align:=alClient;
   

[Blaazen]

OK, then

Code: [Select]

PageControl1.ActivePage:=tabs;It really depends what TabSheets you created in Object Inspector and what TabSheets you created in code.