文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 272
阅读 6
收藏 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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/01/11/1035474.html

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

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

晨曦之光
2012/03/09
0
0
View 和 ViewGroup的 onMeasure

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

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

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

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

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

长平狐
2012/08/22
132
0
Qt creator写Qt入门程序(超详细)

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

startstorm
2015/09/05
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

异步化,高并发大杀器

今天来聊聊如何让项目异步化的一些事。 在进入正文之前,顺便给大家推荐一个Java架构方面的交流学习群:698581634,里面会分享一些资深架构师录制的视频录像:有Spring,MyBatis,Netty源码分...

Java大蜗牛
8分钟前
0
0
织梦dedecms安全设置

网站本身做好防范: 1、修改默认后台名。 打开网站根目录,找到[dede],这个文件夹就是后台的路径,可以随意修改,比如修改为[adminbuy],此时后台登陆的路径为:http://www.*****.com/admi...

雨季2014
9分钟前
0
0
完美Python入门基础知识点总结,看完你的Python就完全入门了!

Python标识符 在 Python 里,标识符有字母、数字、下划线组成。 在 Python 中,所有标识符可以包括英文、数字以及下划线(_),但不能以数字开头。 Python 中的标识符是区分大小写的。 以下划线...

糖宝lsh
15分钟前
0
0
Java关于前后台传输中文乱码以及Excel下载乱码解决

针对乱码,一般情况是前后台以及中间件编码格式不同导致.故需要保证编码格式相同即可. 1.前台页面格式指定,这里用的是jsp,故需要将pageEncoding指定为"UTF-8" 2.指定服务器编码格式,比如用的t...

勤奋的蚂蚁
17分钟前
0
0
Flutter组件 - Flexible

Flexible是一个控制Row、Column、Flex等子组件如何布局的组件。 Flexible组件可以使Row、Column、Flex等子组件在主轴方向有填充可用空间的能力(例如,Row在水平方向,Column在垂直方向),但是...

一箭落旄头
20分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部