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 api 做的 serversocket 例子

Delphi tstatusbar 用来显示当前程序状态的

Delphi代码中嵌入汇编asm代码

Delphi 判断当前网络连接方式

Delphi 如何在定义局部变量时赋初始值

Delphi tbutton.onclick 匿名函数用法

Delphi combobox和listbox的文字可以右对齐显示

如何把 Delphi 自带的内存泄露写到日志

Delphi_关于null,nil

Delphi远程注入dll方法

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

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