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

kamand314

دوشنبه 28 دی 1388, 09:59 صبح

سلام
من روی یک فرم تعداد کنترل مشابه ( مثلا label ) دارم
آیا میتونم با یک حلقه یک کار روی همه آنها انجام دهم مثلا رنگ همه آنها را تغییر بدم؟
یا باید برای هرکدام یک دستور بنویسم ؟
اصلاٌ آیا در دلفی 7 راهی برای ایجاد آرایه ای از کنترل ها وجود دارد ؟

سعید صابری

دوشنبه 28 دی 1388, 10:23 صبح

VAR
i:Integer;
begin
for I := 0 to Componentcount - 1 do
if (Components[i] is TLabel) then
(Components[i] as TLabel).Color:=clRed

vahid64

دوشنبه 28 دی 1388, 17:51 عصر

سلام
من روی یک فرم تعداد کنترل مشابه ( مثلا label ) دارم
آیا میتونم با یک حلقه یک کار روی همه آنها انجام دهم مثلا رنگ همه آنها را تغییر بدم؟
یا باید برای هرکدام یک دستور بنویسم ؟
اصلاٌ آیا در دلفی 7 راهی برای ایجاد آرایه ای از کنترل ها وجود دارد ؟

کاش جستجو می کردید این سوال بارها و بارها مطرح شده قبلاً...