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