文档章节

TMainMenu 类[三] - 手动建立菜单(4) : 添加分割线与隐藏多余的分割线

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 165
阅读 5
收藏 0
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;

  MyMenu.AutoLineReduction := maAutomatic; {默认会自动隐藏多余的分割线}
  //MyMenu.AutoLineReduction := maManual;  {设定为手动会显示所有分割线}

  Self.Menu := MyMenu;


  Item := TMenuItem.Create(MyMenu);
  Item.Caption := 'AA';                
  MyMenu.Items.Add(Item);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := 'A&1';
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(Item);
    Itemd.Caption := 'A&2';
    Item.Add(Itemd);

    Itemd := TMenuItem.Create(MyMenu);
    Itemd.Caption := '-';               {这是分割线}
    Item.Add(Itemd);
end;

end.

 
 
 
 
 

 

 

  
效果图:


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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
UITableVIewCell分割线样式

在使用系统自带的UITableVIewCell的时候你有没有遇到过这样的困惑呢 ? 1.如何修改cell分割线的颜色 ? 2.如何能让cell的分割线左对齐? 3.如何单独让某个cell的分割线消失? 4.既设置了 cell.i...

zh_iOS
2016/08/29
77
0
导航条里二级菜单的定位问题

先看图: 需求: 1.子菜单的列数和高度都是不确定的,例如上图的菜单一有两列子菜单,菜单二只有一列子菜单,菜单四有四列子菜单,并且高度也不一样。要求整个子菜单在父菜单下居中显示。 2....

一行代码
2016/02/22
1K
0
tableView使用的各项注意点

1.取消tableView上的分割线。 self.tableView.separatorStyle = UITableViewCellSeparatorStyleNone; 2.设置cell的选中样式。 self.selectionStyle = .None 3. 设置cell滑动 出现 删除的按钮......

如若初见
2016/04/25
48
0
赵国栋/ZGDAFNetworking-Tool

ZGDAFNetworking-Tool ====================== 基于最新AFN3.1.0二次封装 (Based on the latest AFN3.1.0 secondary packaging) 更新啦!! ============ 版本迭代:版本1.3.0 ===========......

赵国栋
2017/01/10
0
0
一句代码搞定 RecycleView 侧滑菜单、添加头部底部、加载更多

本文已授权微信公众号:鸿洋(hongyangAndroid)在微信公众号平台原创首发 在 动手打造史上最简单的 Recycleview 侧滑菜单 中,萌生了将这种方案封装为一个开源库的想法,旨在实现调用方式最...

王英豪
2017/09/21
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Java面试题:面向对象,类加载器,JDBC, Spring 基础概念

1. 为什么说Java是一门平台无关语言? 平台无关实际的含义是“一次编写到处运行”。Java 能够做到是因为它的字节码(byte code)可以运行在任何操作系统上,与底层系统无关。 2. 为什么 Java...

Java干货分享
14分钟前
0
0
LeetCode算法题-Range Sum Query Immutable(Java实现)

01 看题和准备 今天介绍的是LeetCode算法题中Easy级别的第70题(顺位题号是303)。给定整数数组nums,找到索引i和j(i≤j)之间的元素之和,包括端点。例如: 给定nums = [-2,0,3,-5,2,-1] s...

qwergkp
19分钟前
0
0
慎用延时初始化(71)

延迟初始化是延时到需要域的值的时候才进行初始化 如果不需要,永远不初始化 既适用于静态域、也适用于实例域 延时初始化是一种优化 除非绝对必要,请尽量不要使用 降低了初始化开销、增加了...

Java搬砖工程师
20分钟前
1
0
中介者模式 调停者 Mediator 行为型 设计模式(二十一)

  用一个中介对象(中介者)来封装一系列的对象交互,中介者使各对象不需要显式地相互引用,从而使其耦合松散      而且可以独立地改变它们之间的交互。      中介者模式又称为调停...

SEOwhywhy
30分钟前
4
0
大数据Spark优化读取Hbase--region 提高并行数过程详细解析

一. Hbase 的 region 我们先简单介绍下 Hbase 的 架构和 region : 从物理集群的角度看,Hbase 集群中,由一个 Hmaster 管理多个 HRegionServer,其中每个 HRegionServer 都对应一台物理机器...

金铭鼎IT教育
30分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部