SpTBXTabsheet wird nicht angezeigt

[cookie22]

Mach mal aus dem FPage wieder ein SpTBXTabSheet und dann:

Delphi-Quellcode:

FTabs.Parent := Form1;
FPage.Parent := FTabs;

Wird es dann angezeigt?

[SpTBX]

Hallooo cookie22,

Danke nochmals für Deine Mühe!

Nein, leider wird das Tabsheet so auch nicht korrekt angezeigt. Dennoch habe ich eine Lösung gefunden, die sich beim Studium der Quelltexte ergeben hat.

Die Klasse TSpTbxTabControl stammt von der Klasse TSpTBXCustomTabset ab, die die Methode Add enthält, die so definiert ist:

function TSpTBXCustomTabSet.Add(Caption: WideString): TSpTBXTabItem; So war der erste Gedanke mit TabItem doch richtig.

Nur hatte ich beim vorherigen Quelltextstuduim leider diese Methode übersehen und das Problem halt so zu lösen versucht, wie das mit dem Delphi-eigenen Pagecontrol zu lösen wäre. Dort wird alles korrekt angezeigt.

Für SPTBX habe ich nun diese Add Methode verwendet. Und damit klappt die Anzeige wie gewünscht.

So sollte also, wer das SpTBXTabControl anstelle des Delphi-eigenen PageControl verwenden will, die Methode Add aufrufen um die Tabseite zu erzeugen und zwar so:

Delphi-Quellcode:

unit unit1;

interface

uses ...,..., SpTBXTabs;

type
  TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
  private
    FTabs: TSpTBXTabControl;
  public
  end;

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTabs := TSpTBXTabControl.Create(self);
  FTabs.Parent := self;
  FTabs.Add('Mein Tab');
  FTabs.Add('Noch ein Tab');
end;

//Aber, wenn noch was auf der Tabseite angezeigt werden soll:

procedure TForm1.FormCreate(Sender: TObject);
var
 Tab: TSpTBXTabItem;
 Memo: TMemo;
 Synedit: TSynEdit;
begin
  FTabs := TSpTBXTabControl.Create(self);
  FTabs.Parent := self;
  Tab := FTabs.Add('Mein Tab');
  Memo := TMemo.Create(Self);
  Memo.Parent := Tab; //hier gibt es Typkonflikt TWinControl und TTBCustomItem
end;

end.

Wie kann ich also jetzt andere Controls auf die Tabseite bringen?

Ein Problem gelöst, das nächste kommt.

----------------------------------------------------------------------

Ich habe das jetzt so gelöst:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
 Tab: TSpTBXTabItem;
 Memo: TMemo;
 Synedit: TSynEdit;
begin
  FTabs := TSpTBXTabControl.Create(self);
  FTabs.Parent := self;
  Tab := FTabs.Add('Mein Tab');
  Memo := TMemo.Create(Self);
  FTabs.ActivePage.InsertControl(Memo);
end;

Nun endlich wird alles angezeigt, wie ich das wollte.

Danke @cookie22, Du hast mir den richtigen Denkanstoß gegeben.

.

[SpTBX]

Hallo,

Leider kann ich meinen letzten Beitrag nicht mehr bearbeiten, deshalb der neue Beitrag hier. Ich habe keine neue Frage zum SpTBX, ich wollte nur zeigen, wie ein Zugriff auf die in eine Tabseite eigefügte Komponente erfolgen kann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
 Tab: TSpTBXTabItem;
 Memo: TMemo;
 Synedit: TSynEdit;
begin
  FTabs := TSpTBXTabControl.Create(self);
  FTabs.Parent := self;
  Tab := FTabs.Add('Mein Tab');
  Memo := TMemo.Create(Self);
  FTabs.ActivePage.InsertControl(Memo); 
  //oder
  TMemo(FTabs.Pages[FTabs.PagesCount-1].Controls[0]).Lines.Add('Zugriff erfolgreich');
  //oder
  TMemo(FTabs.ActivePage.Controls[0]).Lines.Add('Zugriff mit  --- FTabs.ActivePage.Controls[0] --- ');
end;

Wird eine andere Komponente eingefügt, muß statt TMemo natürlich der Typ der eigefügten Komponente stehen.

Habe damit ne ganze Weile experimentieren müssen, bevor mir dieser Zugriff gelang und da dachte ich, ich werde das mal hier zum Besten geben, vielleicht hat ja der eine oder andere dieselben Probleme damit.

.