收录日期:2020/10/20 18:55:37 时间:2016/06/13 02:05:00 标签:VCL组件开发及应用
如何让窗体上Tag=1控件的控件Enabled := false
          Tag=2控件的控件ReadOnly := true

procedure TForm2.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to self.ComponentCount - 1 do
    begin
      case self.Components[I].Tag of
        1:
          begin
            if self.Components[I] is TControl then
              TControl(self.Components[I]).Enabled:=false;
          end;
        2:
          begin
            if self.Components[I] is TControl then
              TControl(self.Components[I]).Enabled:=True;
          end;
      end;

    end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to self.ComponentCount - 1 do
    begin
      case self.Components[I].Tag of
        1:
          begin
            if self.Components[I] is TControl then
              TControl(self.Components[I]).Enabled:=false;
          end;
        2:
          begin
            if self.Components[I] is TCustomEdit then
              TCustomEdit(self.Components[I]).ReadOnly:=True;
          end;
      end;

    end;
end;

非常感谢unsigned兄:
我的问题是:
Tag=1控件的控件Enabled := false 
Tag=2控件的控件ReadOnly := true
您给的代码1和2都是操作Enabled属性
还麻烦您帮我改改...
谢谢!
 
不好意思,您比我快。
非常感谢!工作愉快...

关于DDraw中 Overlay 设置关键色的问题! 求一个Asp.net的网上实时竞价/拍卖系统? 高手帮我做个多行三级联动的代码.我是新手. JDBC连接oracle异常,高分求高手~~~~! 急问各位:请问VB调用VC写的EXE,VC的图标放入托盘,VB程序退出时如何同时结束vc的程序及托盘图标 winsock和多窗口 WinForm程序疑难问题,工程要废了 关于PDF417条码控件的问题 DELPHI程序员紧俏了! 新手不解,为什么asp.net不放在web版呢?却放在了“开发语言”版。不都是做网站的吗? ESP做栈基址? 一张表里,不同条件,同时出现结果(在线等) .net 中如何关闭任务栏 计算网络连接时间 Jbuilder2006+weblogic8+jdbc 的配置方法 笔试中的一道SQL题,感兴趣的来看看 使用nhibernate开发项目。要使用三种数据库。请问如何配置?? 哪位能介绍几款能和女朋友一起玩网络的游戏??? config 文件提示错误 excel vba 查找并表间取数 求助-至今没人解决的svchost.exe应用程序错误???? vb.net的一个Winform工程,出错,找不到原因 问一下,在打印那个连接中,怎么把表中第三排的名字用alert打印出来 大师过来看看Java中的Hash算法是否优秀? c# 编译成机器代码 windows vc程序提交到linux会不会有问题 谁对广州市奥杰信息技术有限公司有了解?正规吗? CPU,硬盘ID?? word转换为pdf的问题 按着别人的书上写,一大堆错,自己写的,刚学,求教