2 Pannels + 1 TSplitter

[Alfonso3]

hallo,

ich lasse vertikal ein TPanel Align = alLeft, dann einen TSplitter Align = alLeft und zuletzt ein TPanel Align = alClient anzeigen.

Somit funktioniert schon mal, wenn man den Splitter in eine Seite zieht, dass die eine Form kleiner bzw. die andere dann größer wird.

Nur komme ich leider nicht wie das geht, dass wenn man das Fenster nach links bzw. rechts zieht, die beiden Panels ihre größe im selben Verhältnis verkleinern. So wie ichs jetzt habe wird immer nur Panel1 kleiner und Panel2 behält seine größe wenn ich das Fenster verkleinere.

Gibts dafür ne Lösung?

Vielen Dank,
Alfonso3

[toms]

Hallo,

Berechne im OnResize Ereignis der Form die neue Panel Breite.

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Width := Trunc(Self.Width div 2); 
  // evtl. anstatt Panel1 Panel2 nehmen, je nach Anordnung.
  // Falls nicht beide Panels gleich breit sind, div 2 durch anderen Faktor ersetzen.
end;