Größe des Forms verändern und anordnen der Scrollboxen

[tdeck]

Hallo Klaus,
Hallo himitsu,

Danke für eure Antworten.

Also doch immernoch Handarbeit für das Anordnen im Resize.
Ich dachte durch das Allignment mit den Panelrastern könnte man das mittlerweile automatisch machen lassen.

Ich habe es jetzt gerade so gemacht:

procedure TForm1.FormResize(Sender: TObject);
var
CheckFormWidth : integer;

const
conMitte : integer = 500;

begin
// Ist die Form zu klein passe es an
//
if (Sender as TForm).Width < (300 + conMitte + 300) then
(Sender as TForm).Width:= (300 + conMitte + 300);

if (Sender as TForm).Height < (850) then
(Sender as TForm).Height := 850;

SBMitte.Width:= conMitte; // Mitte fest auf 440
CheckFormWidth := (Sender as TForm).Width; // Sichere die Form Breite
SBLinks.Width := (CheckFormWidth - conMitte) div 2;
SBMitte.Left := SBLinks.Width;
SBRechts.Left := SBLinks.Width + conMitte;
SBRechts.Width := CheckFormWidth - (SBLinks.Width + conMitte);

end;

Thorsten