获得一个应用程序有几个form (2001年1月9日).txt

来自「delphi 编程技巧」· 文本 代码 · 共 30 行

获得一个应用程序有几个form (2001年1月9日) 

网友更新  分类:系统   作者:阎 磊  推荐:yanlei   阅读次数:483  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
方法1:
var
i:integer;
begin
memo1.Lines.Clear;
for i := 0 to Screen.FormCount-1 do
begin
memo1.Lines.Add(Screen.Forms[i].name);
end;
end;
方法二:
var
i:integer;
begin
memo1.Lines.Clear;
for i:=1 to application.ComponentCount-1 do //也可以获得form名
begin
memo1.Lines.Add(application.Components[i].Name);
end;

end;