中国建设银行官网站额度申请,搭建平台高质量,网站建设实训报告总结,做淘宝客网站服务器目录
一、问题提出
二、程序截图
编辑 编辑
三、程序代码#xff1a; 一、问题提出
我们在开发windows程序的时候#xff0c;可能会希望在窗体的系统菜单中增加一个菜单项#xff0c;那么如何实现呢#xff0c;实际上通过调用windows API是可以实现的#xff0c;…
目录
一、问题提出
二、程序截图
编辑 编辑
三、程序代码 一、问题提出
我们在开发windows程序的时候可能会希望在窗体的系统菜单中增加一个菜单项那么如何实现呢实际上通过调用windows API是可以实现的在Delphi中具体的实现代码见下面API的参考连接地址Menus Functions | Microsoft Learn
二、程序截图 三、程序代码
如下示例代码可以根据实际情况进行修改就可以达到自己需要的目的。
{sensor 2024-01-29相关文档https://learn.microsoft.com/zh-hk/previous-versions/aa931756(vmsdn.10)}unit uMainForm;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons;constMENU_MYITEM1 WM_USER 1000; //自定义消息句柄typeTForm2 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;varForm2: TForm2;implementation{$R *.dfm}{ TForm2 }procedure TForm2.SpeedButton1Click(Sender: TObject);
beginAppendMenu(GetSystemMenu(handle,false),MF_SEPARATOR,0,);//增加分隔条AppendMenu(GetSystemMenu(handle,false),MF_STRING,MENU_MYITEM1,我的菜单项);//增加自定义菜单
end;procedure TForm2.SpeedButton2Click(Sender: TObject);
begin//删除分隔条注意参数 0DeleteMenu(GetSystemMenu(handle,false),0,MF_BYCOMMAND);//删除一个菜单DeleteMenu(GetSystemMenu(handle,false),MENU_MYITEM1,MF_BYCOMMAND);
end;procedure TForm2.WMSysCommand(var Msg: TWmSysCommand);
beginif Msg.CmdType MENU_MYITEM1 then //是自定义的菜单项MessageBox(handle,自定义系统菜单项,提示,MB_OK or MB_ICONINFORMATION)elseinherited; // 其他交给系统处理,切记这一句很重要
end;end.四、执行文件及源代码下载 1. 执行文件:【免费】Demo-ADD-SysMenu.exe资源-CSDN文库 2. 源程序【免费】ADD-SystemMenu-Source资源-CSDN文库
