Splitter aber wie

[freedieter]

Hat jemand ein einfaches Sample zur Verwendung eines Splitters? Vieleicht zwei Listboxen getrennt durch einen Splitter. Komme gar nicht klar mit dem Teil. Danke

[Andreas Kosch]

Hallo,

die Sache ist gar nicht so kompliziert, wenn jeweils ein <b>TPanel</b> als Container für die Listboxen verwendet wird und TSpitter zwischen diesen beiden TPanel-Instanzen liegt. Da alles visuell konfiguriert wird, demonstriert der folgende Inhalt der DFM-Datei das Prinzip besser:
<pre>
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Splitter1: TSplitter
Left = 185
Top = 0
Width = 3
Height = 453
Cursor = crHSplit
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 185
Height = 453
Align = alLeft
Caption = 'Panel1'
TabOrder = 0
object ListBox1: TListBox
Left = 1
Top = 1
Width = 183
Height = 451
Align = alClient
ItemHeight = 13
TabOrder = 0
end
end
object Panel2: TPanel
Left = 188
Top = 0
Width = 500
Height = 453
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object ListBox2: TListBox
Left = 1
Top = 1
Width = 498
Height = 451
Align = alClient
ItemHeight = 13
TabOrder = 0
end
end
end
</pre&gt

[Jens Schumann]

Hallo freedieter,<br>ich gebe Dir noch den Rat, die Autosnap Eigenschaft auf False zu setzen. Wenn nicht, kann es Dir passieren das ein Splitter mit Align=alLeft am linken Fensterrand hängen bleibt und Du ihn dort nicht wegziehen kannst.<br>:-) Jens Schuman