Delphi在系统菜单中添加删除系统菜单项

Delphi在系统菜单中添加删除系统菜单项,利用Windows提供的API函数GetSystemMenu可以得到窗口的系统菜单句柄,再通过AppendMenu和DeleteMenu就可以添加和删除菜单了。

工具/原料 

 
  • Delphi7
  • Windows电脑

方法/步骤

  1.  

    打开Delphi7,创建新的工程,默认新窗体的Name属性为Form1

     

  2.  

    在Form1的Object Inspector中Events里双击OnCreate为Form1创建OnCreate方法,此方法在窗体创建时调用。

     

  3.  

    在OnCreate方法中添加以下代码:

    var

      h: integer;

    begin

      h := getsystemmenu(handle,false);

      appendmenu(h,mf_separator,0,nil);  

      appendmenu(h,mf_string,1001,'我建的系统菜单(&E)');

    end;

    解释一下:

    function GetSystemMenu(hWnd:HWND;bRevert:BOOL):HMENU;stdcall;

      参数说明:

      hWnd: 所要取得系统菜单句柄的目标窗口句柄。

      bRevert:是否修改原始菜单。

      返回一个HMENU型的菜单句柄。

    第一个参数为handle即当前窗口的handle,即Form1.handle

    第二个不修改原始菜单,保留原始菜单

    得了窗体系统菜单句柄h后调用了appendmenu方法。

    function AppendMenu(hMenu:HMENU;uFlags,uIDNewItem:UNIT;lpNewItem:Pchar):BOOL;stdcall;

      参数说明:

      hMenu: 用GetSystemMenu函数得到的菜单句柄。

      uFlag:。如果这个参数包括mf_string常数,该lpnewitem参数指向的字符串

          uIDNewItem:标识符的新菜单项。

      lpNewItem:菜单的类型。

    用这个appendmenu方法先增加了一个分割线,再添加了一个唯一标识为1001的“我建的系统菜单(&E)”菜单项

     

  4.  

    F9运行程序,右键系统标题位置,弹出系统菜单,最后一项就是我们刚刚添加的菜单了

     

  5.  

    为新添加的系统菜单增加点击响应方法,在TForm1类的private添加方法

    procedure sysmenu(var msg: twmmenuselect);message wm_syscommand; 

    这个函数参数为菜单选择类型。

     

  6.  

    鼠标光标点到这个函数的声明,同时按住CTRL+Shift+C即可以创建这个函数体,在函数体内写:

    begin  if msg.IDItem = 1001 then    showmessage('你选择了自己添加的菜单!')  else    inherited;end;

     

  7.  

    F9运行程序,右键系统标题位置,弹出系统菜单,点击最后一项我们添加的菜单会弹出对话框。

     

  8.  

    再回到Form1窗体,为窗体添加一个Button

     

  9.  

    双击新添加的Button1进入Button1的点击响应函数Button1Click(Sender: TObject);在函数体写下:

    var

      i: integer;

    begin

      i := getsystemmenu(handle,false);

      Deletemenu(i,1001,MF_BYCOMMAND);

    end;

    解释一下:

    先获取到Form1窗体的系统菜单句柄

    DeleteMenu(hMenu :HMENU; uPosition :Cardinal; uFlags :Cardinal)

    hMenu Long,菜单句柄 

    nPosition Long,欲删除菜单条目的标识符。如在wFlags中设置了MF_BYCOMMAND标志,这个参数就代表要改变的菜单条目的命令ID。

    wFlags Long,MF_BYPOSITION或MF_BYCOMMAND

    我们新添加的菜单默认是MF_BYCOMMAND方式,对应的唯一标识是1001,所以最后参数是MF_BYCOMMAND

     

  10.  

    F9运行程序,点击Button1,再查看系统菜单会发现我们添加的系统菜单项已经没了。

     

    END