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

吾日三省-

于 2011-07-21 10:40:08 发布

阅读量1.2k

点赞数

分类专栏： delphi学习文章标签： delphi forms user string class

本文链接：https://blog.csdn.net/jetjetlinuxsystem/article/details/6622106

版权

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

摘要由CSDN通过智能技术生成

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(h