Hallo cookie22,
Danke erst mal für die Antwort. Habe das nun mit TSpTBXTabItem probiert und zwar so hier:
Delphi-Quellcode:
unit SpTbxTest;
{$define use_SpTBX}
{.$undef use_SpTBX}
{$define use_tabitem}
{.$undef use_tabitem}
type
TMyPage =
class(
{$ifdef use_SpTBX} TSPTBXTabItem
{$else} TTabSheet
{$endif})
end;
// Statt TSpTBXTabItem stand da vorher TSpTBXTabSheet
TMyPages =
class(
{$ifdef use_SpTBX} TSpTBXTabControl
{$else} TPageControl
{$endif})
constructor Create(AOwner: TComponent);
procedure AddPage;
end;
constructor TMyPages.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
procedure TMyPages.AddPage;
begin
Page := TMyPage.Create(self);
{$ifdef USE_SPTBX}
{$ifdef use_tabitem}
Page.ParentComponent := self;
//In SpTBXTabItem keine Eigenschaft TabControl oder PageControl
{$else}
Page.TabControl := self;
{$endif}
{$else}
Page.PageControl := self;
//Mit Delphi eigenem PageControl
{$endif}
end;
//in Unit1.pas
Unit Unit1;
interface
uses ...,...,SpTbxTest;
type
TForm1 =
class(TForm)
procedure FormCreate(Sender: TObject);
private
FTabs: TSpTBXTabControl;
FPage: TSpTBXTabItem;
public
end;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
FTabs := TSpTBXTabControl.Create(self);
FPage := TSpTBXTabItem.Create(self);
FPage.AddPage;
end;
SO, jetzt mit Delphi Tag. Sorry, musste das erst rausfinden.
So habe ich das also jetzt gemacht. Aber leider wird das TabItem auch nicht angezeigt. Im TabItem gibt es auch keine Eigenschaft TabControl, PageControl oä.