文档章节

TMainMenu 类[三] - 手动建立菜单(3) : 设定加速键

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 132
阅读 3
收藏 0

码上生花,ECharts 作品展示赛正式启动!>>>

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  MyMenu: TMainMenu;
  Item: TMenuItem;

procedure TForm1.FormCreate(Sender: TObject);
var
  Itemd: TMenuItem;
begin
  MyMenu := TMainMenu.Create(Self);
  MyMenu.AutoHotkeys := maManual;      {指定为手动加速键; 默认是自动添加的}
  Self.Menu := MyMenu;


  Item := TMenuItem.Create(MyMenu);
  Item.Caption := 'AA';                {这个没设加速键}
  MyMenu.Items.Add(Item);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := 'A&1';            {指定加速键为: Alt+1}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(Item);
    Itemd.Caption := 'A&2';            {指定加速键为: Alt+2}
    Item.Add(Itemd);
end;

end.

 
 
 
 
 

 

 

  
效果图:


本文转载自:http://www.cnblogs.com/del/archive/2008/02/04/1064274.html

涂孟超
粉丝 13
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
加载中
请先登录后再评论。
Ubuntu下NVIDIA驱动安装及3D桌面的设置

一、允许 restricted 软件包 NVIDIA驱动位与Ubuntu软件仓库的 "restricted" 模块中.因此,在准备安装该驱动前,请在您的系统中允许restricted模块。 1.选择屏幕上方的 System 系统菜单。 2.选择...

JavaGG
2009/05/23
529
0
201871010133-赵永军《面向对象程序设计(java)》第十五周学习总结

201871010133-赵永军《面向对象程序设计(java)》第十五周学习总结 项目 内容 这个作业属于哪个课程 https://www.cnblogs.com/nwnu-daizh/ 这个作业的要求在哪里 https://www.cnblogs.com/...

osc_74vaali6
2019/12/08
2
0
Linux之grub引导详情与故障排除

GRUB(GRand Unified Bootloader简称“GRUB”)是一个来自GNU项目的多操作系统启动程序。GRUB是多启动规范的实现,它允许用户可以在计算机内同时拥有多个操作系统,并在计算机启动时选择希望...

kyp521
2016/03/26
0
0
WordPress 5.4 发布 通过区块产出更多内容

感谢老殁的投递 WordPress 5.4专注于通过添加新功能和扩展现有块来改进古腾堡编辑器。提供更多能让页面更生动的方式,以更简单的方式完成,看起来也比以前更好,还能让您感到速度的提升。 两...

老殁
04/01
0
0
2018级C语言大作业 - 贪吃蛇大作战 - 知乎

C语言 - 贪吃蛇大作战https://www.zhihu.com/video/1249786645408862208 分享18级同学大一上学期用C语言实现的贪吃蛇大作战。分步骤代码、图片音乐素材、可执行程序可从百度网盘下载: 链接:...

做游戏,学编程
05/29
0
0

没有更多内容

加载失败,请刷新页面

加载更多

BIO、NIO、AIO、Netty面试题

https://juejin.im/post/5e9421836fb9a03c7b3051bb

JaneRoad
30分钟前
19
0
elementui table缩略图滑过放大图片

html中 <el-table-column prop="qr_image" label="缩略图" width="180"> <template slot-scope="scope"> <el-popover trigger="hover" title="" placem......

大换子
38分钟前
16
0
家谱软件中的循环 - Cycles in family tree software

问题: I am the developer of some family tree software (written in C++ and Qt). 我是一些家庭树软件的开发者(用C ++和Qt编写)。 I had no problems until one of my customers mailed......

javail
40分钟前
23
0
MySQL 多表关联一对多查询取最新的一条数据

SQL语句 SELECT SQL_CALC_FOUND_ROWS* FROMtableA aLEFT JOIN (SELECTBC.* FROM( SELECT MAX( id ) AS cid FROM tableB GROUP BY code ) ACLEFT JOIN tableB B...

珞木橘子
48分钟前
16
0
nacos的启动方式以及注意的点

这个单机模式的启动方式 sh startup.sh -m standalone 注意,必须要加参数,如果不加参数启动了,无法正常访问 如果在用这个命令(sh startup.sh -m standalone)之前直接使用sh startup.sh ,...

千年典韦
57分钟前
7
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部