状态栏中加入图标

实例说明

状态栏已经成为主界面必不可少的部分，状态栏一般用于显示程序状态、当前日期等，在状态栏中添加一张图片会是程序的主界面更有特色。运行本例，效果如图1.11所示。



技术要点

本例的主要技术是为了TImage组件的Parent属性指定父组件，设置TImage组件的相关属性确定图片的位置。

实现过程

1.新建一个工程，该工程会自动创建一个窗体，默认命名为Form1。

2.在窗体上添加TImage组件和TSatusBar组件。

3.程序代码如下：

procedure TForm1.FormCreate(Sender: TObject);

begin

image1.Parent:=statusbar1;

image1.Left:=2;

image1.Top:=3;

image1.Width:=32;

image1.Visible:=True;

end;