如何遍历窗体中所有DBEdit控件，然后设置其属性readonly为true

如何遍历窗体中所有DBEdit控件，然后设置其属性readonly为true 问题点数：5、回复次数：3Top

1 楼konhon（优华）回复于 2003-12-02 19:20:38 得分 2

for   i:=0   to   Self.Controls.Count-1  
  begin  
      if   Self.Controls[i]   is   TDBEdit   then  
        TDBEdit(Self.Controls[i]).ReadOnly:=True;  
  end;Top

2 楼konhon（优华）回复于 2003-12-02 19:21:41 得分 0

如Controls.Count不行的话，请用Components.Count  
  我没装Delphi，无法实验。  
  Top

3 楼qufo（鎴戞兂娴嬭瘯涓€涓嬫樀绉板埌澶氬皯闀挎槸鏈€闀匡紒鎴戞兂娴嬭瘯涓€涓嬫樀绉板埌澶氬皯闀挎槸鏈€闀匡紒）回复于 2003-12-02 20:47:41 得分 3

for   i:=0   to   Self.ControlsCount-1  
  begin  
      if   Self.Controls[i]   is   TDBEdit   then  
        TDBEdit(Self.Controls[i]).ReadOnly:=True;  
  end;  
   
   
  Self.ControlsCount   中间没点。Top

相关问题

• 控件
• 属性
• 遍历窗体
• readonly
• controlscount
• self
• tdbedit
• 中所有dbedit控件
• 设置其属性
• controls

• 帖主：zgxly2002
• konhon
• qufo

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载