Delphi图像化的导航界面实例

图像化的导航界面
实例说明
如果以按钮来代替菜单的功能，会使界面更具有个性化，使操作者更易于操作。当指针指向按钮时，按钮将凸出显示。下面介绍按钮显示菜单的设计方法。运行本例，效果如图1.14所示。

图1.14 图形化的导航界面
技术要点
设置TSeedButton组件的相应属性，确定按钮的位置。
在该实例中用到了Draw()函数，其函数原型如下：
procedure Draw(x,y:double;Graphic:Tgraphic)；
参数说明：
x,y绘制的画布所在的位置。
Graphic 要绘制的图片。
功能
根据指定的位置绘制图形。
实现过程
1.新建一个标准工程，创建一个新窗体，设置窗体的Name属性为F_main。
2.在窗体放置TSeedButton、TImage、TPanel、TToolBar和TMainMenu等控件并设置相应的属性。
3.相关组件的主要属性如表1.4所示。

表1.4 主要组件的属性设置
4.将SpeedButton组件的Flat属性设置为True。