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

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:31
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。

5.主程序代码如下：

procedure TF_main.spb_baClick(Sender: TObject);

begin

spb_syslogin.Visible:=false;

spb_sysmodi.Visible:=false;

spb_sysgrant.Visible:=false;

spb_sysquit.Visible:=false;

spb_bawork.Visible:=true;

spb_babus.Visible:=true;

spb_bajob.Visible:=true;

spb_bacom.Visible:=true;

spb_bastore.Visible:=true;

spb_babelong.Visible:=true;

spb_comin.Visible:=false;

spb_comout.Visible:=false;

spb_combad.Visible:=false;

spb_comrepar.Visible:=false;

spb_comback.Visible:=false;

spb_commore.Visible:=false;

spb_comlost.Visible:=false;

spb_comgive.Visible:=false;

spb_delein.Visible:=false;

spb_deleout.Visible:=false;

spb_delebad.Visible:=false;

spb_deleback.Visible:=false;

spb_delemore.Visible:=false;

spb_delelost.Visible:=false;

spb_delegive.Visible:=false;

spb_delerepar.Visible:=false;

spb_findin.Visible:=false;

spb_findout.Visible:=false;

spb_findbad.Visible:=false;

spb_findback.Visible:=false;

spb_findmore.Visible:=false;

spb_findlost.Visible:=false;

spb_findgive.Visible:=false;

spb_findrepar.Visible:=false;

spb_findstore.Visible:=false;

spb_bawork.Top:=150;

spb_babus.Top:=150;

spb_bacom.Top:=150;

spb_bajob.Top:=150;

spb_bastore.Top:=150;

spb_babelong.Top:=150;

spb_bawork.Left:=10;

spb_babus.Left:=spb_bawork.Left+100;

spb_bacom.Left:=spb_babus.Left+100;

spb_bajob.Left:=spb_bacom.Left+100;

spb_bastore.Left:=spb_bajob.Left+100;

spb_babelong.Left:=spb_bastore.Left+100;

end;

procedure TF_main.TB_mainCustomDraw(Sender: TToolBar; const ARect: TRect;

var DefaultDraw: Boolean);

begin

sender.Canvas.Draw(0,0,image1.Picture.Bitmap);

end;

赞