delphi状态栏中加入图标实例

状态栏中加入图标
实例说明
状态栏已经成为主界面必不可少的部分，状态栏一般用于显示程序状态、当前日期等，在状态栏中添加一张图片会是程序的主界面更有特色。运行本例，效果如图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;