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