系统菜单中添加选项.doc

用Delphi为窗体的系统菜单中添加选项2006-01-30 10:14作者：出处：网弧责任编辑：方舟通常在应用程序中，如果单击标题栏的左侧图标，就会弹出一个窗体的系统菜单，在其中可以完成最小化、最大化和关闭等操作。本实例将演示如何在窗体的系统菜单中添加自己的选项。 在窗体中添加一个TMainMenu组件，其中TMainMenu组件中的选项将要被添加到窗体的系统菜单中。添加组件后的窗体如图1所示。图1 添加组件后的窗体在TMainMenu组件生成的菜单中添加一个File菜单，在这个菜单下面添加一个Exit选项。在本程序开始运行时就会把TMainMenu组件生成的菜单添加到窗体的系统菜单中，响应代码如下：procedure TForm1.FormCreate(Sender: TObject);varI: Integer;beginAppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, );with MainMenu1 dobeginfor I := 0 to Items.Count - 1 doAppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,ItemsI.Handle,PAnsiChar(ItemsI.Caption);end;end;程序首先通过GetSystemMenu (Handle, FALSE)来取得窗体的系统菜单，并且调用AppendMenu函数添加一个MF_SEPARATOR类型的选项，也就是菜单分隔条。然后通过一个循环，调用AppendMenu函数把TMainMenu组件生成的菜单逐个添加到窗体的系统菜单中。现在，虽然选项已经添加到窗体的系统菜单中，但是选项还不能够响应用户的操作。为了能够正常响应用户的操作，需要拦截WM_SysCommand消息，所以要添加拦截消息的过程procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand，它的响应代码如下：procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);varItem: TMenuItem;beginItem := MainMenu1.FindItem(Msg.CmdType, fkCommand);if Item nil thenItem.Click;inherited;end;这样，新添加的选项就可以正常工作了。单击窗体系统菜单File中的Exit选项，就会结束程序的运行。程序代码如下：unit Unit1;interfaceusesSysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,Menus, StdCtrls;typeTForm1 = class(TForm)MainMenu1: TMainMenu;File1: TMenuItem;Exit1: TMenuItem;procedure Exit1Click(Sender: TObject);procedure FormCreate(Sender: TObject);private Private declarations publicprocedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand;end;varForm1: TForm1;implementation$R *.DFMprocedure TForm1.WMSysCommand (var Msg: TWMSysCommand);varItem: TMenuItem;beginItem := MainMenu1.FindItem (Msg.CmdType, fkCommand);if Item nil thenItem.Click;inherited;end;procedure TForm1.Exit1Click(Sender: TObject);beginClose;end;procedure TForm1.FormCreate(Sender: TObject);varI: Integer;beginAppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, );with MainMenu1 dobeginfor I := 0 to Items.Count - 1 doAppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,ItemsI.Handle,PAnsiChar(ItemsI.Caption);end;end;end.保存文件，然后按F9键