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

页面导航:首页 > 软件编程 > Delphi > delphi添加系统菜单,点击新菜单没有反应的问题

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

来源: 作者: 时间:2016-01-21 09:33 【

program Psysmenu; uses Forms, Sysmenu in #39;\SYSMENU.PAS#39; {Form1}; {$R *.RES} begin Application.CreateForm(TForm1, Form1); Application.Run; end. unit Sysmenu; interface use...

 

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 ,则所有系统菜单都不能用。

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <