{对象的 ClassType 方法返回对象的 TClass}
ShowMessage(Self.ClassType.ClassName); {TForm1 - Form1 的类名}
MyClass := Self.ClassType;
ShowMessage(MyClass.ClassName);
转载于:https://www.cnblogs.com/dengdeng/archive/2010/08/27/1810208.html
{对象的 ClassType 方法返回对象的 TClass}
ShowMessage(Self.ClassType.ClassName); {TForm1 - Form1 的类名}
MyClass := Self.ClassType;
ShowMessage(MyClass.ClassName);
转载于:https://www.cnblogs.com/dengdeng/archive/2010/08/27/1810208.html