如何在delphi 7中列出所有可用的表单

Question

我使用delphi 7，我的项目有很多可用的表单。 我试图执行application.component[i].classname来获取所有可用的表单类名，但我只获取创建的表单类名列表。

有没有办法将项目中的所有可用表单类名称获取到列表框？

Answer 1

您可以使用内置类注册表。

• 通过调用RegisterClass(TMyForm)注册所有表单类。 从初始化部分执行此操作，通常是定义类的单元的部分。
• 如果要从注册表中恢复该类，请调用FindClass传递类名。
• 为安全起见，请检查FindClass返回继承自TForm的类。
• 最后使用Application.CreateForm创建表单实例，或者只调用类的Create虚拟构造函数。

实例化如下所示：

var
  MyClass: TPersistentClass;
  Form: TForm;
....
MyClass := FindClass(ClassName);
if MyClass.InheritsFrom(TForm) then
  Form := TFormClass(MyClass).Create(AnOwner);