将字符串映射为Delphi控件名，批量修改控件属性

http://blog.sina.com.cn/s/blog_4dfbd07c01000a81.html

将字符串映射为Delphi控件名，批量修改控件属性

 (2007-10-08 14:50:51)

转载▼

标签：  知识/探索

分类： Delphi Study

假定有一批TRzCheckBox控件，控件名从Chk_Bit0 ... Chk_Bit19, 想要将其Enabled属性全部改为 True，则可以采用如下形式快速实现。

Uses   Classes；

 

     for i := 0 to 19 do 

         TRzCheckBox(FindComponent('Chk_Bit'+ IntToStr(i))).Enabled := True;

如果TRzCheckBox控件名称没有规律，但均包含在控件TGroupBox中，则可以采用如下方式实现。

 

    for i:=0 to GBox_RStatus.ControlCount-1 do
        if GBox_RStatus.Controls[i] is TRzCheckBox then
           (GBox_RStatus.Controls[i] as TRzCheckBox).Enabled := True;