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;