资源描述：
《系统菜单中添加选项》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、用Delphi为窗体的系统菜单中添加选项2006-01-3010:14作者：出处：网弧责任编辑：方舟 通常在应用程序中，如果单击标题栏的左侧图标，就会弹出一个窗体的系统菜单，在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项。 在窗体中添加一个TMainMenu组件，其中TMainMenu组件中的选项将要被添加到窗体的系统菜单中。添加组件后的窗体如图1所示。图1添加组件后的窗体 在TMainMenu组件生成的菜单中添加一个File菜单，在这个菜单下面添加一个Exit选项。 在本程序开始运行时就会把TMainMenu组件生成的菜单添加到窗
2、体的系统菜单中，响应代码如下：procedureTForm1.FormCreate(Sender:TObject);var I:Integer;begin AppendMenu(GetSystemMenu(Handle,FALSE),MF_SEPARATOR,0,''); withMainMenu1do begin forI:=0toItems.Count-1do AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup, Items[I].Handle,PAnsiChar(Items[I].Caption)); end;en
3、d; 程序首先通过GetSystemMenu(Handle,FALSE)来取得窗体的系统菜单，并且调用AppendMenu函数添加一个MF_SEPARATOR类型的选项，也就是菜单分隔条。然后通过一个循环，调用AppendMenu函数把TMainMenu组件生成的菜单逐个添加到窗体的系统菜单中。 现在，虽然选项已经添加到窗体的系统菜单中，但是选项还不能够响应用户的操作。为了能够正常响应用户的操作，需要拦截WM_SysCommand消息，所以要添加拦截消息的过程——procedureWMSysCommand(varMsg:TWMSysCommand);messageWM_SysCo
4、mmand，它的响应代码如下：procedureTForm1.WMSysCommand(varMsg:TWMSysCommand);var Item:TMenuItem;begin Item:=MainMenu1.FindItem(Msg.CmdType,fkCommand); ifItem<>nilthen Item.Click; inherited;end; 这样，新添加的选项就可以正常工作了。 单击窗体系统菜单File中的Exit选项，就会结束程序的运行。 程序代码如下：unitUnit1;interfaceusesSysUtils,Windows,Messages,
5、Classes,Graphics,Controls,Forms,Dialogs,Menus,StdCtrls;type TForm1=class(TForm) MainMenu1:TMainMenu; File1:TMenuItem; Exit1:TMenuItem; procedureExit1Click(Sender:TObject); procedureFormCreate(Sender:TObject);private {Privatedeclarations}public procedureWMSysCommand(varMsg:TWMSysCommand);message
6、WM_SysCommand;end;var Form1:TForm1; implementation {$R*.DFM}procedureTForm1.WMSysCommand(varMsg:TWMSysCommand);var Item:TMenuItem;begin Item:=MainMenu1.FindItem(Msg.CmdType,fkCommand); ifItem<>nilthen Item.Click; inherited; end;procedureTForm1.Exit1Click(Sender:TObject);begin Close;end;proced
7、ureTForm1.FormCreate(Sender:TObject);var I:Integer;begin AppendMenu(GetSystemMenu(Handle,FALSE),MF_SEPARATOR,0,''); withMainMenu1do begin forI:=0toItems.Count-1do AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup, Items[I]
