文件名称：Delphi在窗口中添加系统菜单项.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 11:05:32
Delphi源码-界面编程
Delphi在WinForm窗口菜单中添加系统菜单项： procedure TForm1.user_sysmenu(var msg: twmmenuselect); begin if msg.iditem=101 then showmessage('响应系统菜单!') else inherited; //作缺省处理,必须调用这一过程 end; procedure TForm1.FormCreate(Sender: TObject); var Imenu:integer; begin Imenu:=getsystemmenu(handle,false); //获取系统菜单句柄 appendmenu(Imenu,MF_SEPARATOR,0,nil); appendmenu(Imenu,MF_STRING,101,'我的系统菜单'); //加入用户菜单 end;
【文件预览】：
srcfans.com
----Delphi在窗口中添加系统菜单项()
--------Project1.res(876B)
--------Unit1.dfm(409B)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(895B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(4KB)