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

[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

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