unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure SysMenu(var msg: TWMMenuSelect); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
hm: HMENU;
begin
hm := GetSystemMenu(Handle, False);
AppendMenu(hm, MFT_SEPARATOR, 0, nil);
AppendMenu(hm, MFT_STRING, 100, '新菜单项');
end;
procedure TForm1.SysMenu(var msg: TWMMenuSelect);
begin
if msg.IDItem = 100 then
ShowMessage('新菜单项')
else inherited;
end;
end.
给系统菜单添加菜单项
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
上一篇:一行代码设置颜色的控件
下一篇:复制动态数组
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
有趣的CSS - 汉堡菜单按钮
用 css 实现汉堡菜单图标与关闭图标过渡动画交互效果。
css 汉堡图标 动画 ux 交互体验 -
看懂OSSIM的WebUI菜单源码文件
本文详细介绍OSSIM前端WebUI菜单结构和代码注释
数组 OSSIM 汉化 -
Recyclerview添加条目点击事件
package com.mine.project.function.adapter;im
android ide bundle -
linux和windows路由条目添加方法。
linux和windows路由条目添加方法。
linux 职场 路由 休闲 onlyzq -
Java 添加菜单按钮 java添加子菜单
SWT 为Java程序的用户界面设计提供了极大的方便,许多新手在刚刚接触SWT时,不知从何下手,往往在实现最简单的功能时也会遇到许许多多的麻烦,比如常遇到的菜单以及子菜单的添加,下面我用一个例程演示一下具体的实现过程。 &
Java 添加菜单按钮 swt properties menu java