Windows拖动菜单揭密 数据挖掘研究院
本文简述编程制作Windows拖动菜单的基本方法，并用Delphi 5.0给出示例代码。 数据挖掘研究院
其实在Windows编程中制作拖动菜单的基本方法比许多人想象的要简单的多（这是本人在Microsort网站上查阅了大量资料编程测试后得出的结论），前段时间本人在网上看到一些另类实现方法，甚觉不妥。
拖动菜单制作主要使用的消息和函数是一个在Win98以后版本才有的Windows消息WM_MENUDRAG和一个菜单类型常量MIM_ MNS_DRAGDROP；一个数据类型TMenuInfo和一个API函数SetMenuInfo()。其它则是一些大家都熟悉的Windows消息和API菜单函数。 数据挖掘工具
以下按Delphi编程方式给出具体的步骤和代码。 数据挖掘研究院
第一步，创建一个项目，不用多说。 数据挖掘论坛
第二步，定义如下二个Windows消息响应过程：
procedure WMContextMenu(var Msg: TMessage); message WM_CONTEXTMENU; 数据挖掘交友
procedure WMMenuDrag(var Msg: TMessage); message WM_MENUDRAG; 数据挖掘工具
第三步，编写上面二个Windows消息响应过程的实现部份，作为一个示例如下： 数据挖掘交友
procedure TForm1.WMContextMenu(var Msg: TMessage); 数据挖掘实验室
var 数据挖掘论坛
MenuInfo:TMenuInfo; 数据挖掘交友
Menu:HMenu; 数据挖掘实验室
pt:TPoint; 数据挖掘实验室
cmd:Cardinal; 数据挖掘实验室
begin 数据挖掘研究院
pt:=Point(LOWORD(Msg.lParam),HIWORD(Msg.lParam)); 数据挖掘工具
Menu:=CreatePopupMenu; 数据挖掘论坛
try 数据挖掘研究院
InsertMenu(Menu,0,MF_BYPOSITION,MF_STRING,"AAAAA");//示例添加几个任意的菜单项 数据挖掘研究院
InsertMenu(Menu,1,MF_BYPOSITION,MF_STRING,"BBBBB"); 数据挖掘研究院
InsertMenu(Menu,2,MF_BYPOSITION,MF_STRING,"CCCCC");
InsertMenu(Menu,3,MF_BYPOSITION,MF_STRING,"DDDDD"); 数据挖掘交友
数据挖掘论坛
MenuInfo.cbSize:=sizeof(TMenuInfo);
MenuInfo.fMask:=MIM_STYLE;
MenuInfo.dwStyle:=MNS_DRAGDROP; //关键，指定Menu是拖动菜单，否则将不响应WM_MENUDRAG消息 数据挖掘工具
SetMenuInfo(Menu,MenuInfo);
cmd:=Cardinal(TrackPopupMenuEx(Menu, 数据挖掘研究院
TPM_RETURNCMD or TPM_LEFTBUTTON or TPM_LEFTALIGN , 数据挖掘实验室
pt.X,pt.Y,Handle,nil)); 数据挖掘工具
//com=0 时，出错 数据挖掘研究院
if cmd>0 then 数据挖掘研究院
begin 数据挖掘实验室
//运行你指定的命令 数据挖掘论坛
end; 数据挖掘论坛
finally 数据挖掘实验室
DestroyMenu(Menu);
end;//try 数据挖掘研究院
end; 数据挖掘研究院
数据挖掘论坛
procedure TForm1.WMMenuDrag(var Msg: TMessage); 数据挖掘实验室
var 数据挖掘工具
buffer:array [0..255] of Char;
begin 数据挖掘交友
//响应用户动，制作拖动菜单并不难，难的是这一部份，当拖动发生时，程序员要在此如何完成拖动 数据挖掘实验室
GetMenuString(Msg.LParam,Msg.wParam, @buffer, sizeof(buffer),MF_BYPOSITION ); 数据挖掘交友
Caption:=Format("你拖动的菜单项: ID=%d ; 标题是： %s",[Msg.wParam,buffer]); 数据挖掘研究院
//必须返加回 MND_ENDMENU或MND_CONTINUE 数据挖掘研究院
//当用MND_ENDMENU时每拖动一下，菜单都将消失，如果你不想它消失，可使用MND_CONTINUE 数据挖掘研究院
Msg.Result:=MND_ENDMENU; 数据挖掘交友
end;
数据挖掘工具
第四步，运行程序，单击鼠标右键，拖动其弹出菜单，主窗口的标题栏将指示出你所进行的拖动。 数据挖掘交友
到此为此一个基本的拖动菜单已经完成，虽然在拖动时你看不到如同Windows开始菜单一样的拖动效果，但它的的确确是一个非常正宗的拖动菜单，只要编程者在WMMenuDrag(var Msg: TMessage)过程中充分发挥其想象，任何拖动样式都可能被制作出来。不过本人用Delphi的TMainMenu或TPopupMenu类虽经不懈努力均未能实现其菜单项的拖动。 数据挖掘研究院
如果你有什么疑问，可到www.netgocn.com去和我交流。 数据挖掘论坛
数据挖掘工具
成都 李晓方 数据挖掘工具 |
