【Delphi】系统菜单中增加菜单项

news2024/10/7 14:29:37

一、问题提出

二、程序截图

编辑编辑

三、程序代码：

一、问题提出

我们在开发windows程序的时候，可能会希望在窗体的系统菜单中增加一个菜单项，那么如何实现呢，实际上通过调用windows API是可以实现的，在Delphi中具体的实现代码见下面，API的参考连接地址：Menus Functions | Microsoft Learn

二、程序截图

三、程序代码：

如下示例代码可以根据实际情况进行修改，就可以达到自己需要的目的。

{sensor 2024-01-29
 相关文档：https://learn.microsoft.com/zh-hk/previous-versions/aa931756(v=msdn.10)

}

unit uMainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;

const
   MENU_MYITEM1 = WM_USER + 1000; //自定义消息句柄

type
  TForm2 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
    H : THandle;
    procedure WMSysCommand(var Msg : TWmSysCommand); message WM_SYSCOMMAND; //拦截WM_SYSTEM消息
  public
    { Public declarations }
  end;



var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
  AppendMenu(GetSystemMenu(handle,false),MF_SEPARATOR,0,'');//增加分隔条
  AppendMenu(GetSystemMenu(handle,false),MF_STRING,MENU_MYITEM1,'我的菜单项');//增加自定义菜单
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
  //删除分隔条，注意参数 0
  DeleteMenu(GetSystemMenu(handle,false),0,MF_BYCOMMAND);
  //删除一个菜单
  DeleteMenu(GetSystemMenu(handle,false),MENU_MYITEM1,MF_BYCOMMAND);
end;

procedure TForm2.WMSysCommand(var Msg: TWmSysCommand);
begin
 if Msg.CmdType = MENU_MYITEM1 then //是自定义的菜单项
    MessageBox(handle,'自定义系统菜单项','提示',MB_OK or MB_ICONINFORMATION)
 else
   inherited; // 其他交给系统处理,切记这一句很重要！！！！
end;

end.