文档章节

TMainMenu 类[一]

涂孟超
 涂孟超
发布于 2014/09/26 15:36
字数 225
阅读 9
收藏 0

自动建立一个 SDI Application 程序, 程序包含了漂亮的菜单:



在窗体文件内记录着菜单数据:
object MainMenu1: TMainMenu
  Images = ImageList1
  Left = 8
  Top = 152
  object File1: TMenuItem
    Caption = '&File'
    Hint = 'File related commands'
    object FileNewItem: TMenuItem
      Action = FileNew1
    end
    object FileOpenItem: TMenuItem
      Action = FileOpen1
    end
    object FileSaveItem: TMenuItem
      Action = FileSave1
    end
    object FileSaveAsItem: TMenuItem
      Action = FileSaveAs1
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object FileExitItem: TMenuItem
      Action = FileExit1
    end
  end
  object Edit1: TMenuItem
    Caption = '&Edit'
    Hint = 'Edit commands'
    object CutItem: TMenuItem
      Action = EditCut1
    end
    object CopyItem: TMenuItem
      Action = EditCopy1
    end
    object PasteItem: TMenuItem
      Action = EditPaste1
    end
  end
  object Help1: TMenuItem
    Caption = '&Help'
    Hint = 'Help topics'
    object HelpAboutItem: TMenuItem
      Action = HelpAbout1
    end
  end
end

 
 
 
 
 

 

 

  
菜单是一个 TMainMenu 类型的对象; 每一个菜单项都是一个 TMenuItem 类型的对象. 单元文件中有声明:
MainMenu1     : TMainMenu;

File1         : TMenuItem;
FileNewItem   : TMenuItem;
FileOpenItem  : TMenuItem;
FileSaveItem  : TMenuItem;
FileSaveAsItem: TMenuItem;
N1            : TMenuItem;
FileExitItem  : TMenuItem;
Edit1         : TMenuItem;
CutItem       : TMenuItem;
CopyItem      : TMenuItem;
PasteItem     : TMenuItem;
Help1         : TMenuItem;
HelpAboutItem : TMenuItem;

 
 
 
 
 

 

 

  
看来学习 TMainMenu 类, 必须同时学习 TMenuItem 类; 因为菜单是由若干菜单项(TMenuItem)构成的.

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

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
GO 语言 UI 组件库 - govcl

由于现有第三方的Go UI库不是太大就是用的不习惯,或者组件太少。就萌生了自己写一个UI库的想法Delphi(Lazarus)有些许多优秀的VCL(LCL)组件,不拿来使用太可惜了。所以就索性做了一套。目前支...

不在乎y
2017/10/10
6.9K
17
Delphi源程序格式书写规范

1 ,规范简介 本规范主要规定Delphi 源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组...

长平狐
2012/09/03
182
0
Java属性拷贝问题

有三个类,类一(Class1) public class Class1 {private String name;private int age;public String getName() {return name;}public void setName(String name) {this.name = name;}publi......

Asgic
2012/10/26
1K
3
两句话轻松掌握 python 最难知识点——元类

千万不要被所谓“元类是99%的python程序员不会用到的特性”这类的说辞吓住。因为每个中国人,都是天生的元类使用者 学懂元类,你只需要知道两句话: 道生一,一生二,二生三,三生万物 我是谁...

马哥教育
2017/11/06
0
0
Java语言中的----继承(一)

day10 Java语言中的继承(一) 一、继承概述: 继承:什么是继承,程序中的继承与生活中的继承还是有区别的,在程序中继承以后,你的父类和你的子类同样的也具有某一成员变量。那么我们为什么...

孤独一夜
2017/09/27
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

Memcached启动参数详解

memcached -d -m 1024 -l 192.168.100.101 -p 11211 -P /tmp/memcached.pid -c 1024 -f 1.25 -n 80 -t 16 运行参数描述 -d:以守护(daemon)进程方式启动; -u:是运行Memcache的用户,例如 ......

月下狼
17分钟前
0
0
xgboost-kaggle

https://www.kaggle.com/dansbecker/xgboost This tutorial is part of the Learn Machine Learning series. In this step, you will learn how to build and optimize models with the powe......

tantexian
18分钟前
0
0
nginx学习八 代理服务

最常用的语法 proxy_pass Syntax: proxy_pass URL;Default: --Context:location.if in location,limit_exception 反向代理 例:/etc/nginx/conf.d/default.conf 反向代理(代理服务端)......

Romanceling
25分钟前
0
0
npm ERR! Unexpected end of JSON ...

npm install 报错: npm ERR! Unexpected end of JSON input while parsing near '..."^2.8.14"},"_hasShrin' npm ERR! A complete log of this run can be found in: ... 打开终端 命令: 第......

大_侠
29分钟前
0
0
Android中的设计模式之责任链模式

参考 《设计模式:可复用面向对象软件的基础 》5.1 Chain of responsibility 职责链 对象行为型模式 《Android源码设计模式解析与实战》第9章 使编程更有灵活性--责任链模式 意图 使多个对象...

newtrek
33分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部