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 如何通过代码控制打开键盘数字锁定numlock

Delphi tstringlist自定义排序

Delphi 简单的日志记录

Delphi中对url进行编码和解码

Delphi 获取memo的行数与列数

Delphi获取各种编码的识别符

Delphi 将memorystream保存到字符串

Delphi 基础学习 字符串去掉回车符

Delphi sysutils.isdelimiter - 判断字符串的某个位置是不是指定的字符串

Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber

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

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