Windows拖动菜单揭密

页面导航:首页 > 软件编程 > Delphi > Windows拖动菜单揭密

Windows拖动菜单揭密

来源: 作者: 时间:2016-02-05 11:47 【

Windows拖动菜单揭密本文简述编程制作Windows拖动菜单的基本方法,并用Delphi 5.0给出示例代码。其实在Windows编程中制作拖动菜单的基本方法比许多人想象的要简单的多(这是本人在Micros

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

Tags:

相关文章

    文章评论

    
    <