Windows拖动菜单揭密


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);

补充：软件开发 , Delphi ,