图形化菜单是指在菜单项左边设置一个小位图，
我们在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可以很方便地实现这种功能。
- 向窗体中增加一个弹出式菜单PopupMenu1、一个打开对话框OpenDialog1和一个保存
对话框SaveDialog1。
- 设置工具栏中打开按钮的Style属性为tbsDropDown，DropDownMenu属性为PopuMenu1。
- 手工编写一个单击事件处理句柄MenuItemClick，程序清单附后。
- 分别为文件菜单中的打开和保存菜单项写单击事件处理句柄，程序清单附后。
- 单击工具栏中打开按钮OnClick事件右边的下拉列表并选定N10Click以便与打开菜
单项共享代码。
- 运行程序并选定文件菜单中的保存命令将文本框中的内容保存到一个文件中。
- 清除文本框中内容RichEdit1。
- 单击打开按钮右边的下拉按钮出现一个下拉菜单，其中有一个菜单项的内容就是你刚
保存的文件名，单击该菜单项程序将文件中的内容又装入了文本框。
