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;