Page Control
lazarus / 31-LCL

----------------------------------------------------------------------
metalistas2 · 2011-05-22 15:45

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

----------------------------------------------------------------------
Blaazen · 2011-05-22 16:14

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 · 2011-06-05 19:18

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 · 2011-06-05 20:13

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 · 2011-06-05 20:19

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

but soething is wrong with :

var's  tabs: TTabSheet;

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

I get :

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

----------------------------------------------------------------------
Blaazen · 2011-06-05 20:38

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

You should write:
Code: [Select]PageControl1.ActivePage.Free;

----------------------------------------------------------------------
metalistas2 · 2011-06-05 20:40

Thanks Again ;]

And how make activepage ?

----------------------------------------------------------------------
Blaazen · 2011-06-05 21:57

Code: [Select]PageControl1.ActivePage:=TabSheet1;
OR
Code: [Select]PageControl1.ActivePage:=PageControl1.Pages[0];

----------------------------------------------------------------------
metalistas2 · 2011-06-05 22:13

not working ://

here is my source
Quote    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 · 2011-06-05 22:41

OK, then
Code: [Select]PageControl1.ActivePage:=tabs;It really depends what
TabSheets you created in Object Inspector and what TabSheets you
created in code.