系统菜单中添加选项

在TMainMenu组件生成的菜单中添加一个File菜单，在这个菜单下面添加一个Exit选项。

在本程序开始运行时就会把TMainMenu组件生成的菜单添加到窗体的系统菜单中，响应代码如下：

procedure TForm1.FormCreate(Sender: TObject);
var
　I: Integer;
begin
　AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, ');
　with MainMenu1 do
　begin
　　for I := 0 to Items.Count - 1 do
　　　AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,
　　　Items[I].Handle,PAnsiChar(Items[I].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);
var
　Item: TMenuItem;
begin
　Item := MainMenu1.FindItem(Msg.CmdType, fkCommand);
　if Item <> nil then
　　Item.Click;
　　inherited;
end;

这样，新添加的选项就可以正常工作了。

单击窗体系统菜单File中的Exit选项，就会结束程序的运行。

程序代码如下：

unit Unit1;

interface

uses

SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
Menus, StdCtrls;
type
　TForm1 = class(TForm)
　MainMenu1: TMainMenu;
　File1: TMenuItem;
　Exit1: TMenuItem;
　procedure Exit1Click(Sender: TObject);
　procedure FormCreate(Sender: TObject);
private
　{ Private declarations }
public
　procedure WMSysCommand(var Msg:TWMSysCommand);message WM_SysCommand;
end;


var
　Form1: TForm1;
　implementation
　{$R *.DFM}

procedure TForm1.WMSysCommand (var Msg: TWMSysCommand);
var
　Item: TMenuItem;
begin
　Item := MainMenu1.FindItem (Msg.CmdType, fkCommand);
　if Item <> nil then
　　Item.Click;
　　inherited;
　end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
　Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
　I: Integer;
begin
　AppendMenu (GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, ');
　with MainMenu1 do
　begin
　　for I := 0 to Items.Count - 1 do
　　　AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,
　　　Items[I].Handle,PAnsiChar(Items[I].Caption));
　　end;
　end;
end.