procedure TForm1.Button1Click(Sender: TObject);
var
MyClass: TClass;
begin
MyClass := Sender.ClassType;
while MyClass.ClassParent <> nil do
MyClass := MyClass.ClassParent;
end;
var
MyClass: TClass;
begin
MyClass := Sender.ClassType;
while MyClass.ClassParent <> nil do
MyClass := MyClass.ClassParent;
end;
var
MyClass: TClass;
begin
MyClass := Sender.ClassType;
while MyClass.ClassParent <> nil do
begin
MyClass := MyClass.ClassParent;
ShowMessage(MyClass.ClassName);
end;
end;