登陆

Delphi 查找组件的两种方法

查找组件的方法

Delphi代码
  1. var i:integer;   
  2. begin  
  3.   for i:=1 to 5 do  
  4.   begin  
  5.     if findcomponent('cb'+formatfloat('00',i))<>nil then  
  6.     begin  
  7.       TCheckBox(findcomponent('cb'+formatfloat('00',i))).Checked:=true;   
  8.     end;   
  9.   end;   
  10. end;  

另外一种是

Delphi代码
  1. for i=0 to APanel.ComponentCount-1 do    
  2.   if APanel.Components[i] is TCheckBox then    
  3.   begin  
  4.     (APanel.Components[i] as TCheckBox).Checked=True;   
  5.   end;   

刚在逛的时候发现的代码 第一种我是不会的 下次有用到就得试试看了 哈哈先给记下来

« 上一篇 | 下一篇 »