会员登录 | 注册

来去留技术信息资源

来去留技术信息资源
来去留网 > 去看信息 > 程序系统 > 定制Delphi应用程序的系统菜单

定制Delphi应用程序的系统菜单

2014-01-11 21:07来源:网络整理发布者:来去留 查看:

定制Delphi应用程序的系统菜单

       2009年10月02日01:04  来源:eNet硅谷动力  

【文章摘要】我们使用Delphi编制应用程序,编译运行后,在主界面的左上角出现一小图标,用鼠标单击此图标,会出现一下拉式菜单,这就是系统菜单。系统菜单包括[还原]、[移动]、[大小]、[最小化]、[最大化]和[关闭]六项。系统菜单是Delphi自动给每个应用程序加上的,不用特意设计。但在我们的应用程序中,有时为达到一定目的,不希望在主界面上有主菜单存在,这时就可以在系统菜单上做点文章,将自己的菜单选项加入到系统菜单中,以实现主界面的整洁。

我们使用Delphi编制应用程序,编译运行后,在主界面的左上角出现一小图标,用鼠标单击此图标,会出现一下拉式菜单,这就是系统菜单。系统菜单包括[还原]、[移动]、[大小]、[最小化]、[最大化]和[关闭]六项。系统菜单是Delphi自动给每个应用程序加上的,不用特意设计。但在我们的应用程序中,有时为达到一定目的,不希望在主界面上有主菜单存在,这时就可以在系统菜单上做点文章,将自己的菜单选项加入到系统菜单中,以实现主界面的整洁。
  下面是具体的实现方法。例如,我们要将[新建]和[保存]两选项加入到系统菜单中。先将一PopupMenu组
件加入表单,双击此组件进入PopupMenu设计器,设置[新建]和[保存]菜单项,后单击表单空白处,再选中
Objector Inspector的Event选项卡,双击OnCreate事件,进入单元窗口,编写如下代码:
  Procedure Tform1,FormCreate(Sender:TObject);
  Begin
  With PopupMenul do
  For I:=1 do
  AppendMenu(getsystemmenu(self,handle,false),mf-popup,items[I],handle,pchar(items[I],caption));
  在变量中添加:Var I:Integer;
  编译运行后就会看到系统菜单中多了[新建]和[保存]两项。
  下面我们来完成系统菜单项的响应。在Tform1的类定义中的Public部分插入如下代码:
  Procedure WMSysCommand(var Msg:Tmessage);
  message WM-SysCommand;
  其中WMSysCommand为用户定义的响应函数。
  Procedure WMSysCommand(var Msg:Tmessage);
  Var
  Item:Tmenuitem;
  Begin
  Inherited;
  Item:=popupmenu1.Finditem(msg.wparam,fkcommand);
  If not(item=nil) then
  Item.click;
  End
  这样,系统菜单项就可以调用原有菜单项的click函数。
(责任编辑:laiquliu)

关注技术,信息,资源,扫描来去留网微信二维码交流。

来去留我李俊

搜索

------分隔线----------------------------
相关栏目

热点推荐
来去留技术信息资源
来去留网为您提供平台咨询交流学习方法及各类热门技术;电器,服装,保健,行业快讯等二十几个类别的资讯