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;