Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Splitter zur Laufzeit erzeugen?

  Alt 21. Apr 2005, 18:54
Der Splitter funktioniert natürlich auch nur wenn du bei den anderen beiden Controls das Align auf alTop bzw. das andere dann noch auf alClient setzt. Du musst eben genau die gleichen Properties setzen die du auch zur designzeit im Objectinspektor setzen würdest.

folgendes Beispiel funktioniert (anstelle der Panels musst du dann eben deine anderen Componenten verwenden)
Delphi-Quellcode:
var PanelTop, PanelMiddle, PanelBottom: TPanel;
    Splitter: TSplitter;
begin
  PanelTop := TPanel.Create(nil); //dein Synedit
  PanelTop.Parent := Self;
  PanelTop.Align := alTop;
  PanelTop.Caption := 'Top';

  Splitter := TSplitter.Create(nil);
  Splitter.Parent := Self;
  Splitter.Align := alTop;

  PanelBottom := TPanel.Create(nil); //deine StatusBar
  PanelBottom.Parent := Self;
  PanelBottom.Align := alBottom;
  PanelBottom.Caption := 'Bottom';

  PanelMiddle := TPanel.Create(Self); //dein VirtualTreeView
  PanelMiddle.Parent := Self;
  PanelMiddle.Align := alClient;
  PanelMiddle.Caption := 'Middle';
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat