通常在應用程序的主窗體中，利用鼠標左鍵點擊左上角的圖標，會彈出一個菜單，稱之為“系統菜單”。
在窗體中並沒有系統菜單對應的組件，所以有時我們需要定制系統菜單時就比較麻煩。具體可以能過下面的步驟實現：
.在系統菜單上添加所需的菜單項。
.為新添加的菜單項定義OnClick事件的處理過程。
下面的例程中，在系統菜單中添加了一個“前端顯示（A）”菜單項，通過該菜單項，可以使窗體始終顯示在最前端或為普通窗體模式。具體實現過程如下：
1）通過菜單File|New Application創建一個新的工程。
2）添加窗體Form1的OnClick事件的處理過程如下：
void _fastcall TForm1::FormCreate(Tobject *Sender)
{
//設置系統菜單
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端顯示(&A)");
}
3）在文件Unit1.h頭文件中增加如下語句：
...
#include<Menus.hpp>
...
4）在TForm1的類型定義中，添加系統菜單中新建菜單項的OnClick事件的處理過程的聲明：
...
public: //User declarations
__fastcall TForm1(TComponent *Owner);
MESSAGE void __fastcall SystemMenuCommand(TWMMenuSelect &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND,TWMMenuSelect,SysteMenuCommand);
END_MESSAGE_MAP(TForm);
};
5）手工添加系統菜單中新建菜單項的OnClick事件的處理過程如下：
void __fastcall TForm1::SystemMenuCommand(TWMMenuSelect &Msg)
{
TForm::Dispatch(&Msg);
if(Msg.IDItem==200)
{
if(Form1->FormStyle==fsNormal)
{
//將窗體設置為總在前端顯示
Form1->FormStyle=fsStayOnTop;
//重新設置系統菜單
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端顯示(&A)");
//在新添加的菜單項前增加一個選中標志
ModifyMenu(GetSystemMenu(Handle,false),200,MF_CHECKED,200,"前端顯示(&A)");
}
}
else
{
//將窗體設置為普通模式
Form1->FormStyle=fsNormal;
重新設置系統菜單
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端顯示(&A)");
{
}
