首页 > 代码库 > Delphi 在系统菜单中添加菜单项

Delphi 在系统菜单中添加菜单项

 1 unit Unit001;
 2 
 3 interface
 4 
 5 uses
 6   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
 7   Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 8 
 9 type
10   TForm1 = class(TForm)
11   procedure FormCreate(Sender:TObject);
12   procedure sysmenu(var msg:twmmenuselect);message wm_syscommand;
13   private
14     { Private declarations }
15   public
16     { Public declarations }
17   end;
18 
19 var
20   Form1: TForm1;
21 
22 implementation
23 
24 {$R *.dfm}
25 procedure TForm1.FormCreate(Sender:TObject);
26 var
27   i:integer;
28 begin
29   i:= getsystemmenu(handle,false);
30   appendmenu(i,mf_separator,0,nil);             //添加分割线
31   appendmenu(i,mf_string,100,我的菜单(&E));   //添加菜单项
32 end;
33 procedure TForm1.sysmenu(var msg:twmmenuselect);
34 begin
35   if msg.IDItem = 100 then
36     ShowMessage(您选择了自己添加的菜单!)
37     else
38       inherited;
39 end;
40 end.

API函数

function GetSystemMenu(hWnd:HWND;bRevert:BOOL):HMENU;stdcall;

  参数说明:

  hWnd: 所要取得系统菜单句柄的目标窗口句柄。

  bRevert:是否修改原始菜单。

  返回一个HMENU型的菜单句柄。

  通过GetSystemMenu得到句柄后可以使用AppendMenu函数为系统菜单增加一个菜单项,该函数原型为:

function AppendMenu(hMenu:HMENU;uFlags,uIDNewItem:UNIT;lpNewItem:Pchar):BOOL;stdcall;

  参数说明:

  hMenu: 用GetSystemMenu函数得到的菜单句柄。

  uFlag,uIDNewItem:菜单唯一标志,弹出菜单唯一标志。

  lpNewItem:菜单的类型。

容易出现问题:

  缺少代码 message wm_syscommand;这句代码的主要作用是:A window receives this message when the user chooses a commond from the window menu.而如果注释了inherited ,则所有系统菜单都不能用。

OnCreate关联

当窗体初始化创建时,就会发生OnCreate事件,对特定窗体的任何实例,OnCreate事件只发生一次,OnCreate处理程序只是用来执行任何启动任务,这些启动任务对于窗体来说是需要的。