Delphi中如何在StatusBar上添加图标
编号：QA003756
建立日期: 2001年1月11日 最后修改日期：2001年1月11日
所属类别：
Ｑ
Nevins:
Delphi中如何在StatusBar上添加图标?
Ａ回答:
你可以在StatusBar中添加一个Panel，并将Panel的Style设置为psOwnerDraw。然后在下面的事件中添加代码：
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusBar1.Canvas.Draw(0, 0, Image1.Picture.Graphic);
end;
另外，你可以试一下TFriendlyStatusBar控件(http://jagor.srce.hr/~iazic/)，这个控件可以把任何控件作为子控件放在StatusBar上，很好用。
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Delphi, VCL, Borland, Windows 9x控件, listview, treeview, monthview, progress bar。
| |
|
|
| |
|
|
