請問delphi中有function可以知道這個project中有幾個TFORM嗎?!

還是有其他的程式碼可以知道呢?!

var
i: Integer;
FormCnt: Integer;
begin
FormCnt:=0;
for i:=0 to Application.ComponentCount-1 do
begin
if Application.Components[i] is TForm then
Inc(FormCnt);
end;
ShowMessage(IntToStr(FormCnt));
end;

procedure TForm1.Button1Click(Sender: TObject);
Var
ObjectCount : Integer;
FormCount : Integer;
begin
FormCount := 0 ;
For ObjectCount := 0 to Application.ComponentCount -1 do
begin
if Application.Components[ObjectCount] is TCustomForm then Inc(FormCount);
end;
Showmessage(IntToStr(FormCount));
end;

------
叔叔有練過,初學者不要學。

chih_kuan前輩:
不知道TCustomForm 與TForm 差別在哪裡？

------
「人們所以覺得寂寞，是因為他們會築牆，卻不會搭橋。」
程式寫的越久，卻發現自己越來越不會寫程式！

用 Screen.FormCount 試試

TForm 是由 TCustomForm 繼承下來的..
意即...找出整個 Application 裡...跟TFrom 一樣.是同一祖先(包含TForm 自己)的有多少?
或者以下列程式碼執行也可以
Procedure TForm1.Button1Click(Sender: TObject);
Var
ObjectCount : Integer;
FormCount : Integer;
begin
For ObjectCount := 0 to Application.ComponentCount -1 do
if Application.Components[ObjectCount].InheritsFrom(TCustomForm) then Inc(FormCount);
Showmessage(InToStr(FormCount));
end;
// Object.InheritsFrom(TClass) ==> 是判斷 物件自己本身是否是由 TClass 繼承下來,,
// 詳細的定義...請參照 TObject 這個物件..這個Procedure 是定義在很底層的 TObject 物件...換句話說...幾乎Delphi 大部份(99.99%)的 VCL 都有此一程序..

------
叔叔有練過,初學者不要學。