用Delphi制作个性化的菜单
www.netgocn.com
在应用程序编写中，使用个性化的菜单可以美化界面，展示个性风彩。例如3721网站推出的《3721网络特快》应用程序中的菜单就是一例。从其Windows编程的角度来说它仅是一个自绘式菜单而已。本文就使用Delphi制作这样的个性化菜单作出说明(本文以Delphi4.0为例)，制作一个可以有背景图、鼠标在上移动选择时的背景色有渐变色效果的彩色菜单。
一、关于Delphi中的自绘式菜单
要将Delphi的菜单(TMainMenu 或TPopupMenu)控件（Component）设为自绘式，有两种不同的情况：
① 如果菜单上没有图标(即，没有设定其Images属性)，则必须将菜单控件的OwnerDraw属性设为True，菜单为自绘式。
② 菜单上有图标(即，已设定其Images属性)，菜单为自绘式。
在此，我们必须首先把准备将其制作成有个性特征的菜单设为自绘式。
二、关于背景的重绘
通常Windows程序的标准菜单，在其被下拉或弹出时，鼠标在上移动时出现的选择条背景是一单一的颜色，现在我们要将其重绘为有渐变色效果的背景，另外如果要在其背景上绘制图形（您见过这样的菜单吗？），则应先绘图、后绘渐变的背景。这些绘制工作的完成只需简单使用Delphi提供的画布（Canvas）对象。
三、关于重绘图标
如果菜单上有图标，则最好为各菜单项指定ImageIndex索引号，而不要使用其Bitmap属性。这样在为各菜单项指定了ImageIndex索引号后，可以直接用其TImageList的Draw方法在同一个画布上绘制相应的图标。
四、关于重绘菜单文本
在重绘菜单时，为了不破坏其背景，应将文本的背景模式设为透明，这要用到一个Windows API函数SetBkMode()，其在C++中定义的原形如下：
int SetBkMode(
HDC hdc,
int iBkMode // flag specifying background mode
);
其中：hdc – 是绘图设备句柄，在Delphi中可为Tcanvas的Handle属性；
iBkMode – 指定的背景模式标识符，有OPAQUE 和TRANSPARENT两个
常量取值，取TRANSPARENT时，为透明模式。
设置了背景模式后，可以使用TCanvas的TextOut方法绘制菜单文本。
五、响应自绘式菜单的OnDrawItem事件
为菜单项的OnDrawItem事件添加代码，完成想要完成的重绘工作，如下所示（M_Item1_1是菜单项名称）：
procedure TForm1.M_Item1_1DrawItem(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; Selected: Boolean);
begin
//调用自定义过程--重绘菜单项
DrawItem(TMenuItem(Sender), ACanvas, ARect,Selected);
end;
六、二个示例
㈠ 以下是实现上述个性化菜单的自定义过程DrawItem的一个示例的代码。但需作如下说明：
① 在其Delphi工程的主窗口上有一个TCoolBar控件
