文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 165
阅读 5
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
UITableVIewCell分割线样式

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

zh_iOS ⋅ 2016/08/29 ⋅ 0

导航条里二级菜单的定位问题

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

一行代码 ⋅ 2016/02/22 ⋅ 0

iOS开发tips-神奇的UITableView

概述 UITableView是iOS开发中使用频率最高的UI控件,在前面的文章中对于UITableView的具体用法有详细的描述,今天主要看一些UITableView开发中的常见一些坑,这些坑或许不深,但是如果开发中...

jianxin160 ⋅ 2017/05/08 ⋅ 0

一句代码搞定 RecycleView 侧滑菜单、添加头部底部、加载更多

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

王英豪 ⋅ 2017/09/21 ⋅ 0

赵国栋/ZGDAFNetworking-Tool

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

赵国栋 ⋅ 2017/01/10 ⋅ 0

tableView使用的各项注意点

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

如若初见 ⋅ 2016/04/25 ⋅ 0

Android - RecyclerView系列之小白篇

老婆保佑,代码无BUG 前言 本篇文章,其实很基础,也没什么难度,就是给自己查漏补缺,然后一点一点的积累, 目录 一:Adapter的写法 二:布局管理器 三:分割线 四:ItemAnimator 引用 一:...

Allens_Jiang ⋅ 01/04 ⋅ 0

iOS中的一些小知识点

<一>在tableview中取出多余分割线的方法 1. self.tableView.separatorStyle = UITableViewCellSeparatorStyleNone;此方法会取出所有的分割线,不管有没有数据,可是现在有中需要是有数据的显示...

刀客445 ⋅ 2016/07/04 ⋅ 0

自定义RecyclerView.ItemDecoration,实现Item的等间距分割以及分割线效果

1.背景   RecyclerView是谷歌V7包下新增的控件,用来替代ListView和GridView使用的一个控件。在使用的过程中,往往需要使用到divider的效果(item之间的分割线)。而RecyclerView并不像Lis...

请叫我百米冲刺 ⋅ 2016/12/07 ⋅ 0

20130907.Git学习记录

1、任何文件在Git内都只有三种状态: ①已提交(committed):已提交表示该文件已经被安全地保存在本地数据库中了; ②已修改(modified):已修改表示修改了某个文件,但还没有提交保存; ...

liujb88 ⋅ 2013/09/17 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

思路分析 如何通过反射 给 bean entity 对象 的List 集合属性赋值?

其实 这块 大家 去 看 springmvc 源码 肯定可以找到实现办法。 因为 spirngmvc 的方法 是可以 为 对象 参数里面的 list 属性赋值的。 我也没有看 具体的 mvc 源码实现,我这里只是 写一个 简...

之渊 ⋅ 45分钟前 ⋅ 0

vim使用手册--配对括号的查找

1、把光标放在标记有(、[或{处。 2、按%字符 3、此时光标的位置应当在配对的括号处 4、再次按%就可以跳回配对的第一个括号处。

dragon_tech ⋅ 49分钟前 ⋅ 0

c++ 、object-c printf,%02X和%x有什么区别 ?

%x即按十六进制输出,英文字母小写,右对齐。 %02X有以下变化:英文字母变大写,如果输出字符不足两位的,输出两位宽度,右对齐,空的一位补0。超过两位的,全部输出。 如果不用 %02x 会出现...

yizhichao ⋅ 54分钟前 ⋅ 0

Spring源码解析(七)——实例创建(中)

前言 上一节讲到了,Spring 会根据实例的作用域执行不同的创建逻辑,分别是 Singleton、Prototype、其他 Scope,其中 Singleton 会调用 getSingleton 从缓存中获取,缓存中没有才会创建实例;...

MarvelCode ⋅ 54分钟前 ⋅ 0

Thrift RPC实战(六) spring集成thrift

1.服务端设置 对泛型Thrift Service的支持, 通过采用spring配置以及反射的方式来实现.对于一个服务提供者来说,需要提供端口,接口以及接口实现类,因此在接口中spring配置文件中配置如下 <!...

lemonLove ⋅ 57分钟前 ⋅ 0

oracle11g自动分区使用

为什么使用自动分区? 在oracle11g之前,oracle是不支持自动分区功能的,这就可能导致我们系统在运行一段时间之后,就需要看看分区是否创建或者写触发器进行创建分区,否则就会导致数据无法入...

strict_nerd ⋅ 今天 ⋅ 0

Spring mvc ViewResolver视图解析器实现机制

概要 我们在controller里面经常这样return一个ModelAndView。 return new ModelAndView("userList", "users", userList); DispatcherServlet 靠 ViewResolver 把 userList 解析为 /WEB-INF......

轨迹_ ⋅ 今天 ⋅ 0

策略模式

1.策略模式 策略模式是同一个行为的不同处理办法。策略模式和简单工厂模式的区别:1.策略模式主要是方法的执行方式,工厂模式要获取的对象。两者的侧重点不同。 ...

Cobbage ⋅ 今天 ⋅ 0

行政区划代码转为字典形式

原数据为: http://www.mca.gov.cn/article/sj/xzqh/2018/201804-12/201804-06041553.html 手动替换了一下格式,并使用下面的代码处理. # 输入格式s = """110000:北京市110101:东城区1101...

漫步海边小路 ⋅ 今天 ⋅ 0

android apk 签名

创建key,需要用到keytool.exe (位于C:\Program Files\Java\jdk1.6.0_10\bin目录下),使用产生的key对apk签名用到的是jarsigner.exe (位于C:\Program Files\Java\jdk1.6.0_10\bin目录下),把...

国仔饼 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部