Einzelnen Beitrag anzeigen

SpTBX

Registriert seit: 17. Apr 2012
18 Beiträge
 
#3

AW: SpTBXTabsheet wird nicht angezeigt

  Alt 18. Apr 2012, 12:08
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ä.

Geändert von SpTBX (18. Apr 2012 um 12:25 Uhr)
  Mit Zitat antworten Zitat