به دست آوردن تعداد فرم های یک برنامه

[seven_7_sky]

for i:= 0 to ControlCount-1 do
if Controls[i] is TEdit then
(Controls[i] as TEdit).Clear;


با این کد می توان تمام edit های موجود در فرم جاری را خالی کرد .

آیا می توان این کار رو برای فرم های یک برنامه نیز انجام داد . راهی هست تا بتوان تعداد فرم های برنامه را شمارش کرد و برای تمام فرم های یک edit گذاشت ( در زمان اجرا ) :متفکر: .

[Ahmad Chehreghani]

سلام
اين کد هم بهت تعداد فرمهاتو نشون ميده


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

اين کارم که گفتي به همين راحتيه

[vcldeveloper]

Screen.Forms

-------------