Delphi-Quellcode:
procedure TDeineForm.DeineStatusbarResize(Sender: TObject);
begin
with DeineStatusbar do begin
Panels[0].Width := 50; // Feste Breite links
Panels[2].Width := 50; // Feste Breite rechts
Panels[1].Width := DeineForm.Width - Panels[0].Width - Panels[2].Width; // Variable Breite in der Mitte
end;
end;
Das sollte funktionieren...
[Edit] Uups, zu langsam und kein roter Kasten [/edit]