|
----WINDOWS附帶的時鐘程序有這樣一個特點：它的"Alwaysontop"選項是加在系
統菜單中的，這一技巧為該程序增色不少，同時也增加了其神秘感。我們
在程序設計時能否把自己的菜單項加入系統菜單呢？回答是肯定的，筆者
用Delphi方便的實現了這一功能。
----為實現這一功能，需要解決兩個問題：①、如何把用戶菜單項加入系統
菜單，②、如何才能響應這一菜單項。
----要解決第一個問題，就需要獲取系統菜單的句柄，這一點可用API函數
getsystemmenu()來獲取（getmenu()只能獲取用戶菜單句柄），有了系統菜單句柄，便
可以用API函數appendmenu()向系統菜單中加入用戶菜單選項了。
----要解決第二個問題，需要重載WM_SYSCOMMAND或WM_MENUSELECT消息。我們
知道，當用戶從菜單中選一項時，系統便會發出WM_COMMMAND消息，而對
于系統菜單，則會發出WM_SYSCOMMAND消息，重載這個消息，并判斷選中菜
單的ID值是否為用戶設定值便可以了。Delphi為我們提供了這方面的機制，使
我們能方便的實現這一功能。當然，為實現這一功能我們還可以利用子類
或為系統加消息鉤子的方法來解決。
----為了便于實現，在這里，我們采用重載WM_SYSCOMMAND消息和填寫
WM_MENUSELECT消息結構的方法來實現這一功能。
----下面為筆者為實現這一功能而開發的實例。
----程序在Delphi ver1.0下調試通過。
program Psysmenu;
uses
Forms,
Sysmenu in '\SYSMENU.PAS' {Form1};
{$R *.RES}
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
unit Sysmenu;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes,
Graphics, Controls,Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure user_sysmenu(var msg:twmmenuselect);
message wm_syscommand;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.user_sysmenu(var msg:TWMMENUSELECT);
begin
if msg.iditem=100 then
showmessage(' 響應系統菜單!')
{ 也 可 以setwindowpos()來實現處于最前端功能}
else
inherited; { 作缺省處理,必須調用這一過程}
end;
procedure TForm1.FormCreate(Sender: TObject);
var hmenu:integer;
begin
hmenu:=getsystemmenu(handle,false);
{獲取系統菜單句柄}
appendmenu(hmenu,MF_SEPARATOR,0,nil);
appendmenu(hmenu,MF_STRING,100,'加入系統菜單');
{加入用戶菜單}
end;
end.
|
