有没有想比较好的Edit控件，当没有焦点时背景是灰色。获的焦点后就反白。

Question

有没有想比较好的Edit控件，当没有焦点时背景是灰色。获的焦点后就反白。

Answer 1

这样模拟就行了procedure TForm1.Edit1Enter(Sender: TObject);
begin
  Edit1.Color := ClWindow;
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
  Edit1.Color := clInactiveBorder;
end;

Answer 2

procedure TForm1.Edit1Enter(Sender: TObject);
begin
  TEdit(Sender).Color := clLime;
end;procedure TForm1.Edit1Exit(Sender: TObject);
begin
  TEdit(Sender).Color := clWindow;
end;
这样试试，可以让其它Edit控件共用代码