Problem mit Splitter

[SimStar001]

hallo,

ich habe 2 Panels, welche ich auf Align = alLeft gesetzt habe, und dazwischen einen Splitter ebenfalls auf Align = alLeft.

Wenn ich nun diesen Splitter verschiebe, verändere ich im OnMove Ereignis des Splitters die Panelgrößen mit folgendem Code:

Delphi-Quellcode:

procedure Resize_MainPanel(Main1 : TPanel; Main2 : TPanel; Splitter : TSplitter; MainForm : TForm);
var Breite : integer;
begin
  Breite := MainForm.Width - Splitter.Width;
  Main2.Width := MainForm.Width - Splitter.Width - Main1.Width;
end;

Nun habe ich folgendes Problem, dass wenn ich den Splitter nach dem ziehen loslasse, sich desen Position auch zu verändern scheint, und ich dann von der neuen Position aus nur nach links und nicht mehr weiter nach rechts vergrößern / verkleinern kann.

ich hoffe das Problem verständlich beschireben zu haben? Wer hat ne Lösung dafür?
LG Marco!

[toms]

Hallo

Warum wird der 2. Panel nicht Align = alClient gesetzt?

[jfheins]

Und warujm änderst du manuell die Breite der Elemente obwohl der Splitter das schon machen sollte?

[Bernhard Geyer]

Zitat von jfheins:

Und warujm änderst du manuell die Breite der Elemente obwohl der Splitter das schon machen sollte?

Bei zwei Panels auf alLeft wird das wohl nicht funktionieren ...