獲得一個應用程序有幾個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;