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

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:33
Delphi图像化的导航界面实例

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。

赞