右图的界面中,第一StatusPanel应该是自动调整大小的,所以还得处理StatusBar.OnResize事件,代码如下: procedure TForm1.StatusBar1Resize(Sender: TObject); var i, w: integer; begin w := StatusBar1.Width; for i:=1 to StatusBar1.Panels.Count-1 do w := w - StatusBar1.Panels[i].Width; StatusBar1.Panels[0].Width := w; end;