我想将当前的光标在的edit控件的颜色为浅蓝色，光标离开后恢复原色

Question

我想将当前的光标在的edit控件的颜色为浅蓝色，光标离开后恢复原色

Answer 1

进入到下一个edit时，颜色为浅蓝色，光标离开后恢复原色

Answer 2

//参考如下代码
//...
type
  TForm1 = class(TForm)
//...
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure EditEnter(Sender: TObject);
    procedure EditExit(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.EditEnter(Sender: TObject);
begin
  TEdit(Sender).Color := $00EBDEDA;
end;procedure TForm1.EditExit(Sender: TObject);
begin
  TEdit(Sender).Color := clWindow;
end;procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
    if Components[I] is TEdit then
    begin
      TEdit(Components[I]).OnEnter := EditEnter;
      TEdit(Components[I]).OnExit := EditExit;
    end;
end;
//...

Answer 3

用楼上的代码扩展写一个继承自TEdit的组件,使用起来更方便!
我有一个就是实现楼主所要的功能的,并且有其它的功能扩充!