Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:12:10 delphi状态栏中加入图标实例
状态栏中加入图标实例说明状态栏已经成为主界面必不可少的部分,状态栏一般用于显示程序状态、当前日期等,在状态栏中添加一张图片会是程序的主界面更有特色。运行本例,效果如图1.11所示。技术要点本例的主要技术是为了TImage组件的Parent属性指定父组件,设置TImage组件的相关属性确定图片的位置。实现过程1.新建一个工程,该工程会自动创建一个窗体,默认命名为Form1。2.在窗体上添加TImage组件和TSatusBar组件。3.程序代码如下:procedure TForm1.FormCreate(Sender: TObject);beginimage1.Parent:=statusbar1;image1.Left:=2;image1.Top:=3;image1.Width:=32;image1.Visible:=True;end;
赞