用C++ Builder來定制系統菜單_.net

用C++ Builder來定制系統菜單

發表于：2007-05-26來源：作者：點擊數：標簽：

通常在應用程序的主窗體中，利用鼠標左鍵點擊左上角的圖標，會彈出一個菜單，稱之為系統菜單。在窗體中并沒有系統菜單對應的組件，所以有時我們需要定制系統菜單時就比較麻煩。具體可以能過下面的步驟實現：在系統菜單上添加所需的菜單項。為新添加的菜單

通常在應用程序的主窗體中，利用鼠標左鍵點擊左上角的圖標，會彈出一個菜單，稱之為“系統菜單”。在窗體中并沒有系統菜單對應的組件，所以有時我們需要定制系統菜單時就比較麻煩。具體可以能過下面的步驟實現：

在系統菜單上添加所需的菜單項。

為新添加的菜單項定義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頭文件中增加如下語句：

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)");

            

            {

            

            }

原文轉自：http://www.kjueaiud.com

評論列表（網友評論僅供網友表達個人看法，并不表明本站同意其觀點或證實其描述）

軟件測試 > 測試開發技術 > 軟件測試開發語言 > .net >