首页 > TAG信息列表 > TMenuItem
[Delphi]动态创建菜单
在delphi中动态创建菜单的Demo。 实现功能: 1） 在Form的Oncreate事件中，动态创建子菜单。2) 通过子菜单来设置Form上label的字体大小。3) 动态创建的菜单，带有groupIndex属性以及单选标记。 代码如下： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUt关于三语 (简体、繁体、英语) 切换的尝试
关于三语 (简体、繁体、英语) 切换的尝试 在空白窗体上添加 PopupMenu1, 并添加几个测试用的菜单项, 分别命名为: m1、m2、m3、mCn、mBig、mEn; 激活 mCn 的 OnClick 事件和窗体的 OnCreate 事件.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, C简单实现系统托盘 - 回复 "闪" 的问题
简单实现系统托盘 - 回复 "闪" 的问题 问题来源: http://www.cnblogs.com/del/archive/2008/01/17/1043226.html#1548952 使用 Delphi 提供的 TTrayIcon 类, 两三行程序甚至不写程序(设计时选择几下)即可实现. 设计时的准备工作: 1、添加 TTrayIcon、TPopupMenu 控件, TPWindows 编程[12] - 菜单与菜单资源(一)
Windows 编程[12] - 菜单与菜单资源(一) 假如我们用 TMainMenu 控件设计如下菜单: 该菜单在窗体源文件中是这样存储的: object MainMenu1: TMainMenu Left = 160 Top = 104 object File1: TMenuItem Caption = '&File' object New1: TMenuItem Caption = '&New' e