delphi 添加系统菜单，点击新菜单没有反应的问题

最新推荐文章于 2017-09-30 15:16:39 发布

原创最新推荐文章于 2017-09-30 15:16:39 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #forms #user #string #class

delphi学习专栏收录该内容

26 篇文章

订阅专栏

本文档介绍了一种在Delphi程序中添加自定义系统菜单并处理点击事件的方法。通过`TForm1.user_sysmenu`过程响应`wm_syscommand`消息，解决了点击新菜单无反应的难题。关键步骤包括获取系统菜单句柄，添加菜单项，以及在`FormCreate`事件中设置处理函数。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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.

//出错的主要原因是:缺少一句代码   message wm_syscommand;

//这句代码的主要作用是：A window receives this message when the user chooses a commond from the window menu.

//而如果注释了inherited ,则所有系统菜单都不能用。