文档章节

关于类的入门例子(7): 遍历窗体的所有父类

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 272
阅读 6
收藏 0
点赞 0
评论 0
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Self.ClassName);                         {TForm1      - Form1 的类名}
  ShowMessage(Self.ClassParent.ClassName);             {TForm       - Form1 的父类名}
  ShowMessage(Self.ClassParent.ClassParent.ClassName); {TCustomForm - Form1 的爷爷类名}
end;

//
procedure TForm1.Button2Click(Sender: TObject);
var
  MyClass: TClass;
  {TClass 是 TObject 的类引用; 它和 TObject 有着相同的功能, 但总之不是一个类型}
begin
  {对象的 ClassType 方法返回对象的 TClass}
  ShowMessage(Self.ClassType.ClassName); {TForm1 - Form1 的类名}

  MyClass := Self.ClassType;
  ShowMessage(MyClass.ClassName);        {TForm1 - Form1 的类名}
end;

//
procedure TForm1.Button3Click(Sender: TObject);
var
  MyClass: TClass;
begin
  {对象的 ClassParent 方法返回的也是 TClass, 可以把对象的 ClassParent 赋予 TClass 变量}

  MyClass := Self.ClassType;
  ShowMessage(MyClass.ClassName); {TForm1      - Form1 的类名}

  MyClass := MyClass.ClassParent;
  ShowMessage(MyClass.ClassName); {TForm       - Form1 的父类名}

  MyClass := MyClass.ClassParent;
  ShowMessage(MyClass.ClassName); {TCustomForm - Form1 的爷爷类名}
end;

//遍历窗体的所有父类
procedure TForm1.Button4Click(Sender: TObject);
var
  MyClass: TClass;
begin
  MyClass := Self.ClassType;

  while MyClass <> nil do
  begin
    ShowMessage(MyClass.ClassName);
    MyClass := MyClass.ClassParent;
  end;

{将依次显示:
  TForm1
  TForm
  TCustomForm
  TScrollingWinControl
  TWinControl
  TControl
  TComponent
  TPersistent
  TObject
}
end;

end.

 
 
 
 
 

 

 

  

© 著作权归作者所有

共有 人打赏支持
涂孟超
粉丝 12
博文 2004
码字总数 14107
作品 0
深圳
程序员
WPF 基础到企业应用系列4——WPF千年轮回

1.开篇前言 首先很高兴这个系列能得到大家的关注和支持,基于对大家负责和对自己负责的态度,我会不断努力写好这个系列,分享自己的微薄技术和经验,希望在帮助别人的同时也不断提升自己。由...

晨曦之光 ⋅ 2012/03/09 ⋅ 0

View 和 ViewGroup的 onMeasure

onMeasure什么时候会被调用   onMeasure方法的作用时测量空间的大小,什么时候需要测量控件的大小呢?我们举个栗子,做饭的时候我们炒一碗菜,炒菜的过程我们并不要求知道这道菜有多少分量...

街角的小丑 ⋅ 04/19 ⋅ 0

厚积薄发,丰富的公用类库积累,助你高效进行系统开发(5)----热键、多线程、窗体动画冻结等窗体操作

前面几篇介绍了关于公用类库的使用详细情况,好久没更新这个系列了,一直忙于Winform开发框架、WCF开发框架的细节完善工作,终于有时间、有兴趣继续介绍这个公用类库的使用了。 本文主要介绍...

长平狐 ⋅ 2012/06/11 ⋅ 0

厚积薄发,丰富的公用类库积累,助你高效进行系统开发(5)----热键、多线程、窗体动画冻结等窗体操作

前面几篇介绍了关于公用类库的使用详细情况,好久没更新这个系列了,一直忙于Winform开发框架、WCF开发框架的细节完善工作,终于有时间、有兴趣继续介绍这个公用类库的使用了。 本文主要介绍...

长平狐 ⋅ 2012/08/22 ⋅ 0

Qt creator写Qt入门程序(超详细)

废话一下。第一、Qt是跨平台的,在windows下和Linux基本上是没什么区别的,只要用的是Qt带的库就可以。 第二、Qt c++编程和学校学的c++还有有一点区别的,学校学的c++是基础知识,Qt c++编程...

startstorm ⋅ 2015/09/05 ⋅ 0

游戏UI框架设计(三) : 窗体的层级管理

游戏UI框架设计(三) ---窗体的层级管理   UI框架中UI窗体的“层级管理”,最核心的问题是如何进行窗体的显示管理。窗体(预设)的显示我们前面定义了三种类型: 普通、隐藏其他、反向切换。...

Liu_guozhu ⋅ 2017/02/27 ⋅ 0

基于EventAggregator的事件发布及订阅

EventAggregator简介 EventAggregator是Prism中专门处理ViewModel与ViewModel之间事件传递的类对象,它提供了针对事件的发布方法和订阅方法,所以可以非常方便的来管理事件。下面的图就是其实...

andrewniu ⋅ 05/29 ⋅ 0

Python面向对象编程之我见

面向对象基本概念 面向对象是一种编程范式。范式是指一组方法论。编程范式是一组如何组织代码的方法论。编程范式指的是软件工程中的一种方法学。 一些主流的编程范式: OOP - 面向对象编程 ...

bigstone2012 ⋅ 05/31 ⋅ 0

C# 一个子窗体向父窗体传递参数的例子

一、编码思路 在父窗体使用Lambda表达式自定义事件赋给子窗体内定义的事件,通过在子窗体内调用事件实现传参 二、传递的参数 创建文件SomeUtility.cs,在类SomeUtility中声明结构ReturnStruc...

北风其凉 ⋅ 2014/07/26 ⋅ 0

Oracle 树操作 (select…start with…connect by…prior)

oracle树查询的最重要的就是select…start with…connectby…prior语法了。依托于该语法,我们可以将一个表形结构的以树的顺序列出来。在下面列述了oracle中树型查询的常用查询方式以及经常使...

YaZi-Liu ⋅ 2015/09/18 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

那些证书相关的玩意儿(SSL,X.509,PEM,DER,CRT,CER,KEY,CSR,P12等)

之前没接触过证书加密的话,对证书相关的这些概念真是感觉挺棘手的,因为一下子来了一大堆新名词,看起来像是另一个领域的东西,而不是我们所熟悉的编程领域的那些东西,起码我个人感觉如此,且很长...

颖辉小居 ⋅ 16分钟前 ⋅ 0

利用有限制通配符提升API灵活性(28)

1、参数化类型是不可变的 List<String> 不是List<Object>的子类,但是二者是有联系的 利用有限制的通配符类型处理类似情况 List<? extends Object>(生产者) Collection<? super E>(消费者......

职业搬砖20年 ⋅ 22分钟前 ⋅ 0

ssm框架 +bootstrap分页

这里有两种方式 方式一:自己写分页 方式二:使用插件PageHelper 1.自己写分页 1.1 效果 1.2 实现过程 1.2.1 创建分页公共类 //---------------------------1.属性-------------------------...

Lucky_Me ⋅ 29分钟前 ⋅ 0

Istio

helm template install/kubernetes/helm/istio --name istio --namespace istio-system > $HOME/istio.yaml after $ kubectl create namespace istio-system$ kubectl create -f $HOME/ist......

openthings ⋅ 30分钟前 ⋅ 0

内核线程、轻量级进程、用户线程

线程与进程概念 在现代操作系统中,进程支持多线程。 进程是资源管理的最小单元; 线程是程序执行的最小单元。 即线程作为调度和分配的基本单位,进程作为资源分配的基本单位 一个进程的组成...

117 ⋅ 35分钟前 ⋅ 0

elasticsearch2.4.6升级为elasticsearch-5.5.0的经历

将elasticsearch-5.5.0 中的配置 path.data 指向原来的数据路径 即 path.data: /usr/local/src/elasticsearch-2.4.6/data 注意: elasticsearch-5.5.0 需要将jdk版本升级到1.8...

晨猫 ⋅ 35分钟前 ⋅ 1

lvm讲解 磁盘故障小案例

1

oschina130111 ⋅ 39分钟前 ⋅ 0

那些提升开发人员工作效率的在线工具

本文转载自公众号 Hollis 作为一个Java开发人员,经常要和各种各样的工具打交道,除了我们常用的IDE工具以外,其实还有很多工具是我们在日常开发及学习过程中要经常使用到的。 Hollis偏爱使用...

时刻在奔跑 ⋅ 52分钟前 ⋅ 0

restful风格 实现DELETE PUT请求 的web.xml的配置

import org.springframework.beans.factory.annotation.Autowired; import org.springframework.http.HttpStatus; import org.springframework.http.ResponseEntity; import org.springframe......

泉天下 ⋅ 57分钟前 ⋅ 0

Shell数组

Shell数组 Shell在编程方面比Windows批处理强大很多,无论是在循环、运算。 bash支持一维数组(不支持多维数组),并且没有限定数组的大小。类似与C语言,数组元素的下标由0开始编号。获取数...

蜗牛奔跑 ⋅ 今天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部