Probleme mit Splitter und Panels...

[Weazy]

Ich habe eine Klasse, welche von TTabSheet abgeleitet ist. Im constructor soll dann in diesem TabSheet zwei Panels erstellt werden, welche von einem Splitter getrennt werden. Das instanzieren funktioniert einwandfrei, jedoch ist die Reihenfolge der Komponenten nicht Panel1/Splitter/Panel2 sondern der Splitter ist immer ganz links! (Splitter/Panel1/Panel2)

Falls ich die Panels und den Splitter erst nach dem erstellen des Tabs erstelle ist alles korrekt! Woran könne das liegen?

Delphi-Quellcode:

TCustomTab.create(Sender:tObject);
begin
 LeftPanel:=tPanel.create(Self);
 LeftPanel.Parent:=Self;
 LeftPanel.align:=alLeft;

 Splitter:=tSplitter.create(Self);
 Splitter.Parent:=Self;
 Splitter.align:=alLeft;

 RightPanel:=tPanel.create(Self);
 RightPanel.Parent:=Self;
 RightPanel.align:=alClient;
end;

[oki]

Hi,

teste mal das Erstellen der Panels und des Splitters in der vererbten Methode CreateWnd deines Tab's (protected).

Gruß oki

[uligerhardt]

Zitat von Weazy:

Das instanzieren funktioniert einwandfrei, jedoch ist die Reihenfolge der Komponenten nicht Panel1/Splitter/Panel2 sondern der Splitter ist immer ganz links! (Splitter/Panel1/Panel2)

Du setzt LeftPanel.Left und Splitter.Left nicht explizit, d.h. sie bleiben auf dem Default-Wert 0. Wenn du den Splitter also auf's Sheet klebst, will er an eine Stelle, wo schon eine anderes links-align-tes Control (LeftPanel) liegt. Das müssen die beiden dann wohl unter sich ausmachen. Oder du hilfst nach, indem du Splitter.Left := 1 setzt.

HTH,
Uli.

[Weazy]

Danke, funktioniert jetzt einwandfrei

[taaktaak]

... und welcher Hinweis hat nun geholfen?
Der von oki oder der von uli?