请教：n个edit 控件，当鼠标移动到控件上时，自动获得输入焦点？

Question

请教：n个edit 控件，当鼠标移动到控件上时，自动获得输入焦点？并且已输入的字符变蓝。

Answer 1

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
beginend;

Answer 2

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  ？？？？？？？？？？？？？？？？？？？？？？？？？
end;

Answer 3

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if tedit(sender).Enabled then //---set focus
    tedit(sender).SetFocus;
  if tedit(sender).Text<>'' then //---font color
    begin
       tedit(sender).Font.Color:=clBlue;
    end
  else
    begin
       tedit(sender).Font.Color:=clred;
    end;end;procedure TForm1.Edit1Exit(Sender: TObject);//---if control lost focus 
begin
  tedit(sender).Font.Color:=clRed;//---restore the font color
end;

Answer 4

edit1.setfocus
不能只是谢谢啊，结帖吧。