[passion1]

I forgot to say that I know I am supposed to use Alphacontrol sPagecontrol, but it would be too much work to recreate all the existing Delphi TTabsheets (because they have lots of existing controls which I need for the rest of the project and I do not have not have to display these existing controls)

So I simply want to continue to use regular Delphi TabSheets but use Alphacontrol sPanel to display the Aluminium background. Then I will only display the Delphi Tabsheets that have an Aluminium background.

[CheshireCat]

Hello passion1,

open your form “as text” and replace all TPageControl with TsPageControl and all TTabSheet with TsTabSheet manuell.

[passion1]

Thanks!!

I just read the FAQ's and then came across the Alphaconvert utility that did a perfect job!!!

I only ran into one problem:

after all TPageControls and TTabSheets were converted my project got an “Incompatible types: TsTabsheet and TTabsheet”

compilation error with every statement like:

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

For now I have simply commented out those statements but is there a solution?

[CheshireCat]

Maybe this will help:

Code:

procedure TForm1.sButton1Click(Sender: TObject);
begin
sPageControl1.ActivePage := TsTabSheet(sPageControl1.Pages[10]);
end;

[Author]

Posts