• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

Windows拖动菜单揭密_Delphi

Delphi 搞代码 3年前 (2018-08-09) 155次浏览 已收录 0个评论

本文简述编程制作Windows拖动菜单的基本方法,并用Delphi 5.0给出示例代码。

其实在Windows编程中制作拖动菜单的基本方法比许多人想象的要简单的多(这是本人在Microsort网站上查阅了大量资料编程测试后得出的结论),前段时间本人在网上看到一些另类实现方法,甚觉不妥。

拖动菜单制作主要使用的消息和函数是一个在Win98以后版本才有的Windows消息WM_MENUDRAG和一个菜单类型常量MIM_ MNS_DRAGDROP;一个数据类型TMenuInfo和一个API函数SetMenuInfo()。其它则是一些大家都熟悉的Windows消息和API菜单函数。

以下按Delphi编程方式给出具体的步骤和代码。

第一步,创建一个项目,不用多说。

http://www.gaodaima.com/?p=66009Windows拖动菜单揭密_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去和我交流。

欢迎大家阅读《Windows拖动菜单揭密_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址