[SOLVED] Question about PageControl

[SteveSS]

Hi Chaps.  I have a program which incorporates a page control with 4 tabs.  Works fine.  I decided to add another tab, for testing stuff (fairly new to Lazarus), which I wanted to be invisible unless I was actually using it for something.  I added the following double click routine to a panel on tabsheet1:

procedure TForm1.Panel2DblClick(Sender: TObject);
begin
  pagecontrol1.tabsheet5.visible := true;
  pagecontrol1.activepage := pagecontrol1.tabsheet5;
end;   

The program fails to compile, saying "Error: Identifier idents no member "tabsheet5".  If I comment out the two lines above, the program compiles perfectly and tabsheet5 is present and usable.

Any ideas what is going on please?

Steve
                                           

[kinnon_2000]

Hi,

Try this instead:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Panel1DblClick(Sender: TObject);
2. begin
3.   pagecontrol1.activepage := tabsheet5;
4. end;  

[lucamar]

Your tabsheet5 is an "independent" control, not a property of the PageControl. If you want to find a TabSheet from its name you'll have to traverse the PageControl.Pages[] array checking the name of each page.

Or, more simple, do:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Panel2DblClick(Sender: TObject);
2. begin
3.   tabsheet5.visible := true;
4.   pagecontrol1.activepage := tabsheet5;
5. end;

[SteveSS]

Hi lucamar.  Your solution works perfectly - thank you very much.  I had always assumed that because the tabsheet is logically attached to the page control, the page control would have to specified when taking any action on the tab sheet.  Obviously I was wrong (again!!).

Thanks again,

Steve

[VTwin]

You can also access them by index:

Code: Pascal  [Select][+][-]

1. procedure TForm1.Panel1DblClick(Sender: TObject);
2. begin
3.   PageControl1.Pages[4].Visible := true;
4.   PageControl1.ActivePageIndex := 4;
5. end;
6.