定制任務欄上的系統菜單

2019-11-17 05:10:11

字體：大中小

來源：轉載

供稿：網友

　　通常，當我們在特定的場合或是在多應用的環境運行自己或其他的應用程序時，會在多窗口之間進行頻繁的切換，以實施實時的交互得到所期望的結果，對于這樣的“笨”辦法，我們會不厭其煩地進行好多次，甚至是無數次。

好在Win 9x 在任務欄上顯示了我們所運行或期望的程序，并配備了相應的右鍵系統彈出菜單，使我們在使用時方便多了。問題是那些都是缺省的系統菜單（命令），對于我們來說沒太大的幫助，下面我所介紹的就是利用Win9x 為我們設定的任務欄系統菜單來達到快速、簡捷的獲取信息（執行命令）的目的。提到系統菜單，就讓我們聯想到底層的 WIN32系統調用：AppendMenu、Inert- Menu、ModifyMenu。僅此三個函數，就足可以讓我們對缺省的系統菜單進行定制，應用自如了。為簡單起見，本文就 AppendMenu 進行一些介紹，其余的請朋友們參WIN32API 幫助文件。以下是： AppendMenu 函數原型： BOOL AppendMenu(
HMENU hMenu, // 要定制的菜單句柄
UINT uFlags, // 怎樣定制菜單項
UINT uIDNewItem, // 要定制的菜單項標識或子菜單句柄
LPCTSTR lpNewItem // 要定制的菜單項(字串)
);
在 AppendMenu 函數里，lpNewItem 和 uIDNewItem 參數依靠 uFlags 的不同
標志而有所變化，讓我們來看一看 uFlags 到底有那一些定義值:

MF_BITMAP 指明該菜單項是一位圖，在 lpNewItem 參數代表位圖句柄
MF_CHECKED 在菜單項的前面放上一個“選中”標記
MF_DISABLED 屏蔽該菜單項，但不象平常那樣變成灰色
MF_ENABLED 與 MF_DISABLED 相反
MF_GRAYED 除了有 MF_DISABLED 的作用以外，還把該菜單項變灰
MF_MENUBREAK 把該菜單與現有菜單并排放在一起
MF_MENUBARBREAK 與 MF_MENUBREAK 相同，除了在中間放一條豎線外
MF_OWNERDRAW 表明該菜單項為自繪菜單項，還必須處理一切的顯示、更新問題
MF_POPUP 該菜單項為一子菜單，uIDNewItem 參數代表其句柄
MF_SEPARATOR 與上一菜單項畫上一分割線，系統將忽略 lpNewItem 和
uIDNewItem 參數
MF_STRING 該菜單項是一文本字串，lpNewItem 是其內容
MF_UNCHECKED 取消該菜單項前面的“選中”標記
　　我們看到，除了MF_POPUP，MF_BITMAP，MF_OWNERDRAW以外，MF_STRING是最常用的菜單? 義方法，uIDNewItem在這里是命令消息的wParam參數。朋友們還記得獲取普通菜單的句柄用GetMenu,那么獲取系統菜單的句柄就應該用GetSyst-emMenu。這時有一個問題：程序怎么知道該獲取的系統菜單是窗口上的系統菜單，還是任務欄上的系統菜單呢？這就依靠傳遞給GetSystemMenu的是哪一個參數。因為我們當前考慮的是任欄，因此這個參數就必須是application.Handle。假如這時候就著手編制一個PRoject檢驗一下，朋友們就會發現...“我”定義的菜單怎么沒有反應！原來該菜單項根本沒有在Application里處理過。顯然，我們還得過濾一下傳到Application的WM_SYSCOMMAND消息。為了加深了解，我們首先追加一個簡單的任務欄系統菜單： Unit AddMenuDemo;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,Menus;
type
TDemoForm = class(TForm)
procedure FormCreate(Sender: TObject);
...
private
{ Private declarations }
// 我的消息過濾器
procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
...
public
{ Public declarations }
...
end;

var
DemoForm1: TDemoForm;
implementation
const
My_SimpleCMD1 = WM_USER + 1; // 定義三個用戶消息，用來處理菜單項被點擊
// 時相應的動作
My_SimpleCMD2 = WM_USER + 2;
My_SimpleCMD3 = WM_USER + 3;
...
procedure TDemoForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnAppMessage; //定義自己的消息處理過程
//定義了提交、反饋、處理三個菜單項
AppendMenu(GetSystemMenu(Application.Handle, FALSE),MF_STRING,
My_SimpleCMD1,提交);
AppendMenu(GetSystemMenu(Application.Handle, FALSE),MF_STRING,
My_SimpleCMD2,反饋);
AppendMenu(GetSystemMenu(Application.Handle, FALSE),MF_SEPARATOR,
0, ); // 定義一分割線
AppendMenu(GetSystemMenu(Application.Handle, FALSE),MF_STRING,
My_SimpleCMD3,處理);

end;

procedure TDemoForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
// 定制自己的消息處理過程
if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = My_SimpleCMD1) then
begin
ShowMessage(正在提交...);
Handled := True;
...
end;
if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = My_SimpleCMD2) then
begin
ShowMessage(正在反饋...);
Handled := True;
...
end;
if (Msg.message = WM_SYSCOMMAND) and (Msg.wParam = My_SimpleCMD3) then
begin
ShowMessage(正在處理...);
Handled := True;
...
end;
end;
....
　　當我們處理的事務比較多并且可分組，以上的做法就比較煩瑣，這時就應該定義成多個 MF_POPUP ，其各個子菜單除了uIDNewItem 傳遞這個子菜單的句柄外，另外獨特之處在于消息過濾器的 Msg.wParam 是各個菜單項的 Command。這個Command是在構建 TPopupMenu 時就定義了。無論是否是 MenuItem 或 PopupMenu，其Command的值都是順序遞增的。以下是一范例：
unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, Menus；
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
N1: TMenuItem; // Caption := 范例一;
N2: TMenuItem; // Caption := 范例二;
N3: TMenuItem; // Caption := 范例三;
procedure FormCreate(Sender: TObject);
...
private
{ Private declarations }
// 我的消息過濾器
procedure OnAppMessage(var Msg: TMsg; var Handled: Boolean);
...
public
{ Public declarations }
...
end;
...

var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := OnAppMessage; //定義自己的消息處理過程
// 定義一分割線
AppendMenu(GetSystemMenu(Application.Handle, FALSE), MF_SEPARATOR, 0, );
// 定義提交子菜單
AppendMenu(GetSystemMenu(Application.Handle, FALSE), MF_POPUP,
PopupMenu1.Handle,提交);
end;

procedure TForm1.OnAppMessage(var Msg: TMsg; var Handled: Boolean);
begin
// 定制自己的消息處理過程
if (Msg.message = WM_SYSCOMMAND) AND (Msg.wParam $#@60; WM_USER) then
begin
Case Msg.wParam of
// N1.Command = 1
1:ShowMessage(范例一 Command:+ IntToStr(N1.Command));
// N1.Command = 2
2:ShowMessage(范例二 Command:+ IntToStr(N2.Command));
// N1.Command = 3
3:ShowMessage(范例三 Command:+ IntToStr(N3.Command));
end;
Handled := True;
end;
...
end;
...
　　可以看出，MF_STRING 與 MF_POPUP 在消息處理機制上是稍微有點不同的，另外，假如要在菜單前面加上圖標的話，這在Delphi 4.x、Delphi 5.x 版本下是不成問題，假如是在 Delphi 3.x 下的話，只要定義成自繪 MenuItem即可，不過稍許復雜了一點。在應用過程中，需要提醒的是，這幾組定義不能一起使用:A. MF_DISABLED, MF_ENABLED, 和 MF_GRAYED
B. MF_BITMAP, MF_STRING, 和 MF_OWNERDRAW
C. MF_MENUBARBREAK 和 MF_MENUBREAK
D. MF_CHECKED 和 MF_UNCHECKED

上一篇：從C++到Java --理解面向對象是關鍵所在

下一篇：C++/VC++編程的疑難問題及解答