怎么取得父类的名称?

Question

大致是用VMT, 但是我不知道怎么用

Answer 1

C l a s s N a m e ( ) s t r i n g 对象的类名
C l a s s Ty p e ( ) T C l a s s 对象的类型
I n h e r i t s F r o m ( ) B o o l e a n 判断对象是否继承于一个指定的类
C l a s s P a r e n t ( ) T C l a s s 对象的父类
I n s t a n c e S i z e ( ) w o r d 对象实例的长度(字节数)

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Label1.Parent.Name);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(Button1.ClassParent.ClassName);
end;