显示按钮控件的所有父类

 

 

procedure TForm1.btn1Click(Sender: TObject);
var
  ClassRef: TClass;

begin
  lst1.Clear;   //--这是一个listbox控件

  ClassRef := Sender.ClassType;     //--获得该控件的类型

  while ClassRef <> nil do
  begin
    lst1.Items.Add(ClassRef.ClassName);
    ClassRef := ClassRef.ClassParent;    //--获得父类
  end;

end;