Disable کردن عناصر یک Group

[کامروا]

سلام به دوستان عزیز

چطور میتونم عناصر یک GroupBox رو Disable کنم؟
توجه داشته باشین که نمیخوام خود GroupBox رو Disable کنم که تمام عناصرش غیرفعال شن.
میخوام تک به تک عناصرش غیرفعال شن.

تشکر

[Felony]

var
ControlCount: Byte;
begin
for ControlCount := 0 to GroupBox1.ControlCount - 1 do
TControl(GroupBox1.Controls[ControlCount]).Enabled:= False;
end;

[SAASTN]

چرا Byte؟ محدودیتی تو تعداد کنترلها وجود داره؟

[کامروا]

ممنون آقای تاجیک

اما اینجوری نمیخوام.
روش بهینه تری نیست؟

[Felony]

چرا Byte؟ محدودیتی تو تعداد کنترلها وجود داره؟
خیر ؛ ولی فکر نکنم تو برنامه ای بیشتر از 255 تا کنترل رو تو یک GroupBox قرار بدن !


ممنون آقای تاجیک

اما اینجوری نمیخوام.
روش بهینه تری نیست؟
روش بهینه تر چی ؟! مگه چند تا کنترل داری ؟ اجرای این حلقه برای کامپایلر از آب خردن هم آسونتره ، با چیش مشکل دارید که بهینه نیست ؟!

اگر از دلفی 2009 به بعد ازستفاده میکنید میتونید از حلقه های for in استفاده کنید .

[کامروا]

نمیدونم چرا همیشه فکر میکنم حلقه ها یکم به برنامه فشار میارند. 60 تا کنترل دارم داخل یک گروپ باکس.

[Felony]

نمیدونم چرا همیشه فکر میکنم حلقه ها یکم به برنامه فشار میارند. 60 تا کنترل دارم داخل یک گروپ باکس.
اشتباه فکر میکنید !
برنامه باید بهینه نوشته بشه ولی نه بهینه تر از بهینه ، طوری که به خاطر بهینه سازی کارهایی عجیب و غریب انجام بدید و کدهای کثیف و ناخوانا بنویسید !
اون حلقه با متد Enabled کامپوننت ها کار میکنه ، 60 تا کنترل یا 600 تا هم برای اون حلقه عددی نیست .