小问题(10分)

如何把statusbar中的几个panel的style都设为psOwnerDraw每个panel都显示不同的内容

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel
const Rect: TRect);
var
g: TIcon;
begin
g := TIcon.Create;
try
g.LoadFromFile(Format('%d.ico', [Panel.ID]))
// 其中Panel.ID为Panel的序号
StatusBar.Canvas.Draw(Rect.Left,Rect.Top, g);
finally
g.Free;
end;
end;

TO:tulipfan
我是要同时显示文字和图形,图形我已搞好,

既然图形都好了，把文字写上去不就是了。
TextOut(Rect.left + 25, Rect.top + 2, '版本 1.0');