تغییر property های کامپوننتهای هم کلاس در یک فرم به طور همزمان

[iamehsan56]

سلام
من می خوام یکی از property های همه اون کامپوننتهایی که یک کلاس توی یه فرم دارند رو به طور همزمان تغییر بدم .
نمی خوام با یه حلقه for و با findcomponent اونا را پیدا کنم . چون کامپوننتام توی فرم زیاده .
آیا روشی هست ؟
به همین ترتیب من یه تعداد کامپوننت رو فرممم دارم که فایل swf رو play می کنن . می خوام همزمان همه اونا رو stop کنم . یعنی در واقع یه فانکشن از همشون رو همزمان اجرا کنم .

راهنمایی بفرمایید لطفا دوستان

[یوسف زالی]

سلام.
باید تمام کامپوننت های فرم رو پیمایش کنید.

var

  i: integer;

begin

  for i := 0 to ComponentCount -1 do

    if Components[i] is TButton then

      with TButton(Components[i]) do

        begin

        Caption := IntToStr(i);

        Hint := 'Test';

        Click;

        end;

end;

[iamehsan56]

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

[یوسف زالی]

چندان کند نمی شه.
در مورد چند هزار تا کامپوننت زیر ثانیه هست.

[hadisalahi2]

موافقم
اصلا هیچ کندی نداره

راه دیگش اینه که کامپوننتهایی که میخوای رو FindComponent کنی تا فقط اونهایی که میخوای رو تغییر مقدار بدی
برای این کار هم ، میتونی یک اسم برای همه با یک شناسه عددی بزاری که قابل پیمایش باشند.

مثلا

IMG001

IMG002

.

.

.

IMG200