delphi4arab منتديات دلفي للعرب

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

صورة توضيحية

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

rahiche

nadire1946