Delphi 向窗体的系统菜单添加菜单项.rar

时间:2022-07-30 11:12:44
【文件属性】:

文件名称:Delphi 向窗体的系统菜单添加菜单项.rar

文件大小:7KB

文件格式:RAR

更新时间:2022-07-30 11:12:44

Delphi源码-界面编程

Delphi 向窗体的系统菜单添加菜单项,也就是在系统默认的菜单项中,添加自定义的菜单项,我记得有不少类似的例子,这个是书中的例子,也是挺简单的,高手请绕行。   有多少个菜单项,都会用循环逐项显示出来,   AppendMenu(GetSystemMenu (Handle, FALSE), MF_SEPARATOR, 0, '');   with MainMenu1 do   begin    for I := 0 to Items.Count - 1 do    AppendMenu(GetSystemMenu(self.Handle,FALSE),mf_Popup,    Items[I].Handle,PAnsiChar(Items[I].Caption));   end;


【文件预览】:
codesc.net
----向窗体的系统菜单添加菜单项()
--------Project1.res(876B)
--------Unit1.dfm(448B)
--------Unit1.ddp(51B)
--------Project1.cfg(358B)
--------Unit1.pas(1KB)
--------Project1.dpr(161B)
--------Project1.dof(2KB)
--------Unit1.dcu(5KB)

网友评论