請問各位大大 要如何做到Form上的所有Edit onEnter時Edit.Color := Read，onExit時變回白色？ 謝謝大家

Hi wwwbbs,    1.指定所有Edit 的 OnEnter 與 OnExit 事件為同一段程式碼    2.由程式中動態指定(程式碼必須先行寫好)

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Panel1: TPanel;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure EditEnter(Sender: TObject);
    procedure EditExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.EditEnter(Sender: TObject);
begin
  TEdit(Sender).Color := clRed;
end;    procedure TForm1.EditExit(Sender: TObject);
begin
  TEdit(Sender).Color := clWhite;
end;    procedure TForm1.FormCreate(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to Self.ComponentCount - 1 do
    begin
      if Self.Components[i].ClassNameIs('TEdit') then
        begin
          TEdit(Self.Components[i]).OnEnter := EditEnter;
          TEdit(Self.Components[i]).OnExit := EditExit;
        end;
    end;
end;    end.

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝大大