Ein Hallöle von
http://www.FrankNStein.de/Smiley-Wolke.gif und herzlich willkommen in der
DP-Gemeinde
.
Wenn sich die Fenstergrösse nicht änderst, kannst du ja alles manuel über die Eigenschaft Width des StatusBar-Panels andern.
Ansonsten lässt du es einfach im OnResize-Ereignis deines Formulars jedesmal neu berechnen:
Delphi-Quellcode:
Uses Math;
Procedure TForm1.FormResize(Sender: TObject);
Begin
StatusBar1.Panels.Items[0].Width := Max(ClientWidth -
StatusBar1.Panels.Items[1].Width -
StatusBar1.Panels.Items[2].Width -
...
StatusBar1.Panels.Items[n].Width, 0);
End;
oder
Procedure TForm1.FormResize(Sender: TObject);
Begin
StatusBar1.Panels.Items[0].Width := Max(ClientWidth - 100{B}, 0);
End;
{ B = Gesamtbreite der Panels ab dem 2.Panel (ab [1]) }
Die Schrift lässt sich dann auch noch mit der Eigenschaft Alignment des Panels ändern (siehe
OH).
http://www.FrankNStein.de/Smiley-Kuss.gif * *
http://www.FrankNStein.de/Smiley-Spinne.gif * * *
http://www.FrankNStein.de/Smiley-Winken.gif