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:

markieren

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!

Problem mit Splitter

Problem mit Splitter

Forumregeln