我想在列表框中动态列出项目中存在的所有表单的名称,然后通过单击每个表单,在另一个列表框中列出该表单上存在的所有按钮。
但我不知道是否可以实施以及如何实施。
如果您使用的是 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;
您必须以某种方式注意该类不会被链接器完全删除(因此挂号的上面有提示)。否则,您无法使用所描述的方法获得该类。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)