Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:09
Delphi动态按钮的窗体界面

Delphi动态按钮的窗体界面

实例说明

在窗体界面中，通常以按钮来代替菜单栏的功能，这种形式虽然给用户一种直观、界面风格各异的感觉，但通常按钮都是以静态的形式显示，如果光标移到按钮时，可以使按钮上的图片和文字说明动态变化，使用户很快捷的找到所选按钮。这样就需要一个动态的按钮显示界面。本例运行效果如图1.20所示。



图1.20动态按钮的窗体界面

技术要点

在编辑过程中，首先在SpeedButton控件中的Glyph属性中添加图片，然后设置SpeedButton控件的Layout属性为blGlyphLeft,使图片左对齐。但是必须在相应控件的OnMouseMove事件中设置SpeedButton控件的动态图片。

实现过程

1.新建一个标准工程，创建一个新窗体，设置窗体的Name属性为Form74。

2.添加TImage、TSpeedButton、TStatusBar和TTimer组件。

3.相关组件的主要属性如表1.9所示。



表1.9 主要组件的属性设置

4.主要程序代码如下：

procedure TForm74.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

SpeedButton1.Caption := '公司信息管理';

SpeedButton2.Caption := '部门信息管理';

SpeedButton3.Caption := '人员类别管理';

SpeedButton4.Caption := '银行信息管理';

SpeedButton5.Caption := '员工信息管理';

SpeedButton6.Caption := '员工调动管理';

SpeedButton7.Caption := '操作权限管理';

SpeedButton8.Caption := '系 统 退 出';

SpeedButton9.Layout := blGlyphLeft;

SpeedButton10.Layout := blGlyphLeft;

SpeedButton11.Layout := blGlyphLeft;

SpeedButton12.Layout := blGlyphLeft;

SpeedButton13.Layout := blGlyphLeft;

end;

赞