控制系統(tǒng)菜單

2019-11-17 05:09:45

字體：大中小

供稿：網(wǎng)友

　　INDOWS附帶的時鐘程序有這樣一個特點：它的"Always on top"選項是加在系統(tǒng)菜單中的，這一技巧為該程序增色不少，同時也增加了其神秘感。我們在程序設(shè)計時能否把自己的菜單項加入系統(tǒng)菜單呢？回答是肯定的，筆者用Delphi方便的實現(xiàn)了這一功能。

　　為實現(xiàn)這一功能，需要解決兩個問題：①、如何把用戶菜單項加入系統(tǒng)菜單，②、如何才能響應(yīng)這一菜單項。

　　要解決第一個問題，就需要獲取系統(tǒng)菜單的句柄，這一點可用API函數(shù)getsystemmenu()來獲取（getmenu()只能獲取用戶菜單句柄），有了系統(tǒng)菜單句柄，便可以用API函數(shù)appendmenu()向系統(tǒng)菜單中加入用戶菜單選項了。

　　要解決第二個問題，需要重載WM_SYSCOMMAND或WM_MENUSELECT消息。我們知道，當用戶從菜單中選一項時，系統(tǒng)便會發(fā)出WM_COMMMAND消息，而對于系統(tǒng)菜單，則會發(fā)出WM_SYSCOMMAND消息，重載這個消息，并判定選中菜單的ID值是否為用戶設(shè)定值便可以了。Delphi為我們提供了這方面的機制，使我們能方便的實現(xiàn)這一功能。當然，為實現(xiàn)這一功能我們還可以利用子類
或為系統(tǒng)加消息鉤子的方法來解決。

　　為了便于實現(xiàn)，在這里，我們采用重載WM_SYSCOMMAND消息和填寫WM_MENUSELECT消息結(jié)構(gòu)的方法來實現(xiàn)這一功能。

　　下面為筆者為實現(xiàn)這一功能而開發(fā)的實例。

　　程序在Delphiver1.0下調(diào)試通過。

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( 響應(yīng)系統(tǒng)菜單!)
{ 也可以setwindowpos()來實現(xiàn)處于最前端功能}
else
inherited; { 作缺省 ?,必須調(diào)用這一過程}
end;

procedure TForm1.FormCreate(Sender: TObject);
var hmenu:integer;
begin
hmenu:=getsystemmenu(handle,false);
{獲取系統(tǒng)菜單句柄}
appendmenu(hmenu,MF_SEPARATOR,0,nil);
appendmenu(hmenu,MF_STRING,100,加入系統(tǒng)菜單);
{加入用戶菜單}
end;
end.