本文整理自网络,侵删。
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 listview 导出excel txt vcf 单元
Delphi windows 底下根据一个进程的名字杀死一个进程的代码
Delphi webbrowser1使用进度条查看浏览器状态
更多相关阅读请进入《Delphi》频道 >>