delphi 遍历所有Edit控件

本文整理自网络，侵删。

 
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    btnDo: TButton;
    procedure btnDoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnDoClick(Sender: TObject);
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;

end.
 

相关阅读 >>

Delphi图像hash算法，关于图像相似度问题

Delphi firemonkey 保存图片到jpg的方法 bmp转jpg

delph hash类

Delphi 调用win32 api操作串口

Delphi 设置文本框中光标的位置在最后

Delphi 新建文件夹函数

Delphi winapi: getmodulefilename、getmodulehandle

Delphi doc转txt

Delphi得到系统目录的几个方法

Delphi 内存管理[5]

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

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