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

[hadisalahi2]

با سلام.
من یک آرایه به صورت زیر تعریف کردم:



var
FormArray:array[1..30] of TForm;


حالا برای مقدار دهی به این آرایه به صورت زیر عمل میکنم:



FormArray[1]:=AxisForm;


حالا مشکل اینجاست که اگه 30 تا فرم داشته باشم باید برای هر کدام از اونها این دستور رو بنویسیم.
حالا من میخوام یه جوری فرمهای داخل یک پروژه رو داخل این آرایه بریزم، مثلا با یک حلقه For که نیازی به نوشتن فرضا 30 خط کد برای 30 فرم نباشم.

[Ahmad Chehreghani]

براي به دست آوردن فرم هاي يک برنامه از دستور زير استفاده کنيد
Screen.Forms

[hadisalahi2]

با تشکر
میشه لطفا بیشتر توضیح بدید و یک نمونه کد قرار بدید.

[Ahmad Chehreghani]

قطعه کد زير نام تمامي فرم ها را به خط هاي يکMemo اضافه مي کند


var i:integer;
begin
for i:=0 to Screen.FormCount-1 do
begin
Memo1.Lines.Append(Screen.Forms[i].Caption);
end;
end;

Screen.FormCount تعداد فرم ها را نشان مي دهد.
با دستور Screen.Forms[i] به خصوصيات فرم i دسترسي پيدا مي کنيم
موفق باشيد