كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع

[nadire1946]

كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع بأمر واحد
لأنه عندي 06 مكونات  من نوع  TExpander
  وأريد إغلاقهه وفتحهم دون المرور عليهم واحد تلو الآخر
وهل لهذه التعليمة علاقة بتعميم الأمر على عدة مكونات ((sender as tbutton).Enabled:=true

صورة توضيحية

[rahiche]

PHP كود :

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[i] is TExpander then
    begin
      (Components[i] as TExpander).Active := true;
    end;
  end;d; 


[nadire1946]

جزاك الله خيرا ، هذا ما أبحث عنه بالضبط