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 15位身份证号码转18位身份证号码

Delphi指针的定义和取值

我的Delphi开发经验谈

Delphi dateutils.ispm - 判断时间是否是下午

Delphi监控文件夹

Delphi listview的用法

Delphi 系统长文件名与dos形式短文件名的相互转换

Delphi编程如何判断图片文件的真实类型？

Delphi new 为指针分配内存空间

Delphi xe 取得硬盘序列号代码

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

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