delphi - 从框架代码中获取表单类

Question

如何从框架代码中获取框架所有者表单的类类型，并将该类型转换为 TFormClass？
我知道我需要注册表单类，所以我可以用 GetClass ，但我卡住了。

Answer 1

主机窗体的类类型是这样获取的:

HostFormClassType := TFormClass(GetParentForm(Self).ClassType);

这里当我写 Self我把它当作你的框架。尽管您说的是“所有者”，但我怀疑您的真正意思是框架所在的形式。这通常与框架的所有者相同，但并非总是如此。

无需注册或调用 GetClass .

唯一的轻微皱纹是 GetParentForm可以返回源自 TCustomForm 的内容而不是 TForm .所以上面代码中的转换有可能是不正确的。您可以通过包含运行时测试来解决这个问题。

var
  ClassType: TClass;
....
ClassType := GetParentForm(Self).ClassType;
Assert(ClassType.InheritsFrom(TForm));
HostFormClassType := TFormClass(ClassType);