delphi - 动态列出项目中的所有表单

Question

我想在列表框中动态列出项目中存在的所有表单的名称，然后通过单击每个表单，在另一个列表框中列出该表单上存在的所有按钮。

但我不知道它是否可以实现以及如何实现。

Answer 1

如果您使用的是 Delphi 2010，您可以使用 RTTI 列出所有已注册(=在应用程序中以某种方式使用)的表单类:

uses
  TypInfo, RTTI;

procedure ListAllFormClasses(Target: TStrings);
var
  aClass: TClass;
  context: TRttiContext;
  types: TArray<TRttiType>;
  aType: TRttiType;
begin
  context := TRttiContext.Create;
  types := context.GetTypes;
  for aType in types do begin
    if aType.TypeKind = tkClass then begin
      aClass := aType.AsInstance.MetaclassType;
      if (aClass <> TForm) and aClass.InheritsFrom(TForm) then begin
        Target.Add(aClass.ClassName);
      end;
    end;
  end;
end;

您必须以某种方式注意该类不会被链接器完全删除(因此上面的已注册提示)。否则，您无法使用所描述的方法获得该类。