界面设计是否合理美观、易于使用并符合专业习惯是评价应用程序设计水平的一个重要方面。Windows98和Office97等软件的新型操作界面让人看起来赏心阅目，用起来简单方便。Delphi4.0为我们创建这种新型工作界面提供了许多控件，使得界面设计工作变得轻松愉快、方便快捷。下面结合实例说明如何利用Delphi4.0来实现新型界面的设计。
1.图形化菜单
图形化菜单是指在菜单项左边设置一个小位图，我们在Office97等软件中经常看到这种类型的菜单。用Delphi4.0实现图形化菜单非常方便，具体实现过程如下：
- 双击Win32页上的ImageList控件，向工程中增加一个图象列表控件。现在双击窗体中的ImageList1图象列表控件打开图象处理对话框，单击Add…按钮增加位图Filenew.bmp（在Delphi4.0默认安装时，该位图文件位于C:\Programsfiles\Commonfiles\Boland
shared\Images\Buttons目录下），当出现Confirm对话框时单击No按钮，然后在Options
单选按钮中选定Crop，按同样方法增加位图Fileopen.bmp、Cut.bmp、Copy.bmp、Paste.bmp、Print.bmp、Undo.bmp、Retry.bmp、Check.bmp。
- 双击Standard页上的MainMenu控件，在刚才创建的工程中增加一个主菜单控件，设置其Images属性为ImageList1。然后双击窗体中的主菜单控件打开菜单设计工具创建各菜单项，按下表所示为每个菜单项设置Caption和ImageIndex属性，并接受Delphi为每个菜单项的Name属性生成的缺省值。注意在Caption属性中输入一个连字符（-）用来在菜单间产生一条分割线，而在ImageIndex属性中输入-1表示在该菜单项左边不出现小位图，输入其它自然数对应ImageList1控件中的位图索引号，所选位图最好与其它流行软件一致，便于用户熟悉程序。最后设置工具栏和状态栏菜单项的Checked属性为True。运行应用程序就可看到图形化菜单了。
Caption ImageIndex Caption ImageIndex
Caption ImageIndexCaption ImageIndex
文件（H）-1 编辑（E）-1 视图（V）-1 帮助（H）-1
新建（N）0 撤消（U）7 工具栏8 关于… -1
打开（O）1 重复（R）6 状态栏８
关闭（C）-1 -
打印（P）5 剪切（X）2-复制（C）3
退出（X）-1粘贴（P）4
2.新型平面工具栏
如果注意一下Windows98的资源管理器工作界面上?
具栏，你会发现工具栏上的按钮全是平的，而当鼠标停留在某个铵钮上时，该按钮会凸出来，并且图象的颜色也变了。这就是新型的平面工具栏。Delphi4.0中实现平面工具栏也很方便。下面举例说明：
- 双击Win32页上的ToolBar和StatusBar控件，在刚才创建的工程中增加一个工具栏控件和一个状态栏控件。右键单击ToolBar1工具栏控件打开快捷菜单，先单击NewButton
两次，单击NewSeparator一次，再单击NewButton叁次，单击NewSeparator一次，最后单击NewButton两次。工具栏中生成七个按钮和两个分隔条。
- 设置ToolBar1工具栏控件的Flat属性为True、使其成为平面菜单。设置AutoSize属性为True、BorderWidth属性取值１，使工具栏中的按钮上下居中。
- 双击Win32页上的ImageList控件，在刚才创建的工程中再增加一个图象列表控件。现在双击窗体中的ImageList２图象列表控件打开图象处理对话框，单击Add…按钮增加位图Filenew.bmp，当出现Confirm对话框时单击Yes按钮把该位图分成两个图象，然后在Images中选定彩色显示的那个图象并按Delete按钮删除该图象。按同样方法增加位图Fileopen.bmp、Cut.bmp、Copy.bmp、Paste.bmp、Print.bmp、Undo.bmp、Retry.bmp。
- 设置ToolBar1工具栏控件的Images属性为ImageList2、HotImages属性为ImageList1，使鼠标经过某一按钮时其图象改变颜色。如果愿意的话你还可再增加一个图象列表控件
ImageList3并为其增加一些位图，然后设置ToolBar1工具栏控件的DisableImages属性为ImageList３，这样当工具栏中某个按钮的Enabled属性为False时该按钮将显示
ImageList3中对应的图象。
3.设置菜单项是否选中
单击Word97视图菜单中的标尺菜单项，注意其选中标记的设置。在本例中可为视图菜单中的工具栏菜单项写一个鼠标单击事件处理句柄来实现这种功能。程序清单附后。然后单击状态栏菜单项OnClick事件右边的下拉列表并选定N11Click以便与工具栏菜单项共享代码。
4.显示飞行提示
从左到右分别设置工具栏每个按钮的Hint属性为新建、打开、剪切、复制、粘贴、打印、撤消、重复，并把每个按钮的ShowHint属性设置为True。这样程序运行过程中当鼠标停留在按钮上时会出现飞行提示。
5.自动调整控件大小和分隔窗口
在设计界面时用好控件的Align属性是非常重要的。控件的Align属性用来决定该控件在其容器中的位置以及当容器大小发生改变时控件是否自动调整大小。控件的Align属性可以取alNone、alTop、alBottom、alLeft、alRight、alClient
六个值之一。缺省值为alNone，表示控件保持设计时在窗体或面板中的位置和大小；若改为alTop，则控件移至窗体顶部，宽度随窗体大小改变而改变但高度不变；若改为alClient，则控件充满窗体的未占用客户区，窗体大小改变时也是如此。
Delphi4.0提供的Splitter控件可用来分隔窗口。
现在向窗体中增加一个DirectoryOutline控件并将其Align属性设置为alLeft，再向窗体中增加一个Splitter控件，最后向窗体中增加一个RichEdit控件并将其Align属性设置为alClient。
运行程序你就会看到一个能自动调整控件大小并可分隔窗口的工作界面。
6.设置带下拉菜单的按钮
Windows98的资源管理器工具栏上的前进、后退和查看按钮右边都带有下拉菜单按钮，这种按钮用来设置快捷方式很有用处，比如退回一步或重新打开以前打开过的文件。用Delphi4.0可以很方便地实现这种功能。
标签：
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有
