unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton;Button2: TButton;Button3: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);procedure Button3Click(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}{获取 Button1 的父类}
procedure TForm1.Button1Click(Sender: TObject);
varClassRef: TClass;
beginListBox1.Clear;ClassRef := Sender.ClassType;while ClassRef <> nil dobeginListBox1.Items.Add(ClassRef.ClassName);ClassRef := ClassRef.ClassParent;end;
end;{获取 ListBox1 的父类}
procedure TForm1.Button2Click(Sender: TObject);
varClassRef: TClass;
beginListBox1.Clear;ClassRef := ListBox1.ClassType;while ClassRef <> nil dobeginListBox1.Items.Add(ClassRef.ClassName);ClassRef := ClassRef.ClassParent;end;
end;{获取当前 Form 的父类}
procedure TForm1.Button3Click(Sender: TObject);
varClassRef: TClass;
beginListBox1.Clear;ClassRef := Self.ClassType;while ClassRef <> nil dobeginListBox1.Items.Add(ClassRef.ClassName);ClassRef := ClassRef.ClassParent;end;
end;end.

窗体文件:

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 147ClientWidth = 282Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalsePixelsPerInch = 96TextHeight = 13object ListBox1: TListBoxLeft = 0Top = 0Width = 161Height = 147Align = alLeftItemHeight = 13TabOrder = 0ExplicitHeight = 155endobject Button1: TButtonLeft = 184Top = 24Width = 75Height = 25Caption = 'Button1'TabOrder = 1OnClick = Button1Clickendobject Button2: TButtonLeft = 184Top = 64Width = 75Height = 25Caption = 'Button2'TabOrder = 2OnClick = Button2Clickendobject Button3: TButtonLeft = 184Top = 104Width = 75Height = 25Caption = 'Button3'TabOrder = 3OnClick = Button3Clickend
end