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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع (/showthread.php?tid=9151)



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

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

صورة توضيحية


RE: كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع - rahiche - 31-01-2018

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; 



RE: كيف أقوم بتغيير خصائص عدة مكونات من نفس النوع - nadire1946 - 01-02-2018

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