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 fdconnection自动重连

Delphi 判断文本文件的编码格式

Delphi 无类型文件读写

Delphi xe10 安卓设备信息

Delphi 全盘搜索指定文件

Delphi 无窗体无界面exe怎么做？

Delphi 通过机器名读取ip地址的代码

Delphi 清空dbgrd和stringgrid

Delphi sendemail 邮件发送单元

Delphi goto语句用法

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

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