通常在應用程序的主窗體中,利用鼠標左鍵點擊左上角的圖標,會彈出一個菜單,稱之為“系統(tǒng)菜單”。在窗體中并沒有系統(tǒng)菜單對應的組件,所以有時我們需要定制系統(tǒng)菜單時就比較麻煩。具體可以能過下面的步驟實現(xiàn):
在系統(tǒng)菜單上添加所需的菜單項。
為新添加的菜單項定義OnClick事件的處理過程。
下面的例程中,在系統(tǒng)菜單中添加了一個“前端顯示(A)”菜單項,通過該菜單項,可以使窗體始終顯示在最前端或為普通窗體模式。具體實現(xiàn)過程如下:
1)通過菜單File|New Application創(chuàng)建一個新的工程。
2)添加窗體Form1的OnClick事件的處理過程如下:
void _fastcall TForm1::FormCreate(Tobject *Sender)
{
//設置系統(tǒng)菜單
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端顯示(&A)");
}
3)在文件Unit1.h頭文件中增加如下語句:
...
#include
...
4)在TForm1的類型定義中,添加系統(tǒng)菜單中新建菜單項的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);
};
在系統(tǒng)菜單上添加所需的菜單項。
為新添加的菜單項定義OnClick事件的處理過程。
下面的例程中,在系統(tǒng)菜單中添加了一個“前端顯示(A)”菜單項,通過該菜單項,可以使窗體始終顯示在最前端或為普通窗體模式。具體實現(xiàn)過程如下:
1)通過菜單File|New Application創(chuàng)建一個新的工程。
2)添加窗體Form1的OnClick事件的處理過程如下:
void _fastcall TForm1::FormCreate(Tobject *Sender)
{
//設置系統(tǒng)菜單
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端顯示(&A)");
}
3)在文件Unit1.h頭文件中增加如下語句:
...
#include
...
4)在TForm1的類型定義中,添加系統(tǒng)菜單中新建菜單項的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);
};

