当前位置: 源码素材网 » Delphi源码 » 界面编程 » 详情页

Delphi在窗口中添加系统菜单项

Delphi在WinForm窗口菜单中添加系统菜单项:
  procedure TForm1.user_sysmenu(var msg: twmmenuselect);
  begin
   if msg.iditem=101 then
   showmessage('响应系统菜单!')
   else
   inherited; //作缺省处理,必须调用这一过程
  end;
  procedure TForm1.FormCreate(Sender: TObject);
   var Imenu:integer;
  begin
   Imenu:=getsystemmenu(handle,false); //获取系统菜单句柄
   appendmenu(Imenu,MF_SEPARATOR,0,nil);
   appendmenu(Imenu,MF_STRING,101,'我的系统菜单'); //加入用户菜单
  end;

  • 相关标签:系统菜单 添加菜单
  • 调试环境:Delphi7+
  • 文件大小:5.93K
  • 资源评级:
  • 更新时间:2019-02-10
  • 相关链接:暂无演示

源码测试截图:

Delphi在窗口中添加系统菜单项运行截图

相似源码:系统菜单 添加菜单 Delphi源码下载:Delphi在窗口中添加系统菜单项 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi在窗口中添加系统菜单项”源代码侵犯了您的权益,请尽快告诉我们。