Delphi遍历所有控件

本文整理自网络，侵删。

 
var

  i:integer;
begin
  for i:= 0 to ComponentCount -1 do
  begin
    if (Components[i] is TEdit) and (TEdit(Components[i]).color = clred) then
      TEdit(Components[i]).Left:=TEdit(Components[i]).Left + 5;
  end;
end;
 

相关阅读 >>

Delphi 获取webbrowser中的图片

Delphi base64单元encddecd的修改

Delphi写qq消息群发（模拟按键精灵）

Delphi xe 中的字符串生成哈希值（md5 / sha-1 / jenkins）

Delphi idftp用法

Delphi stringgrid行列的增加和删除

Delphi可执行程序参数

Delphi 字符串左右添加字符

Delphi 计算文件大小

Delphi 十进制十六进制转换

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi遍历所有控件