انجام یک دستور روی کنترلهای مشابه

[kamand314]

سلام
من یک فرم دارم که روی آن تعدادی کنترل مشابه مثلا 20 تا label دارم
آیا می تونم با یک حلقه for یک کار رو روی همه آنها انجام دهم مثلا رنگ همه
رو عوض کنم یا اینکه باید تک تک برای هر کدام یک دستور بنویسم؟
اصلا در دلفی 7 راهی برای ایجاد آرایه ای از کنترلها وجود دارد ؟

[Felony]

کاری که قصد دارید انجام بدیدی رو مشخص کنید ، بلاخره میخواین آرایه ای از کنترل ها داشته باشید یا کار مشترکی روی اونها انجام بدید ؟

هر هفته یک نفر دقیقا همین سوال رو میپرسه و خود من تا به حال 7 ، 8 بار جواب دادم ، دوستان دیگه بماند ، من موندم کارایی این جست و جو تو سایت برای چی هست ؟

برای انجام یک عملیات مشترک روی تعداد خاصی از کنترل ها :
var
i: Byte;
begin
for i:=Form1.ComponentCount-1 downto 0 do
if (Components[i] is TLabel) then
(Components[i] as TLabel).Font.Color:= CLRed;
end;

ساخت آرایه ای از کنترل ها :
var
MyLabels: Array [0..10] of TLabel;