Delphi类的入门例子（7）: 遍历窗体的所有父类

Delphi类的入门例子（7）: 遍历窗体的所有父类2011-12-12 万一 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;