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 xe8安卓下汉字转gb2312

Delphi xe10.1 andriod app中文名称

Delphi 虚拟键码对照表

Delphi滚动标题栏文字

Delphi 获得idhttp redirect后的url

Delphi 写log的代码(按日期)

Delphi ord chr byte等转换

Delphi多媒体函数

Delphi tstringlist自定义排序

Delphi gdi+ 实现简单画图

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

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