Delphi中如何获得光标

就是我想在程序中使光标所在的文本框标一个颜色，当光标一走的时候又回到原来的颜色

可以截获WM_SETFOCUS、WM_KILLFOCUS消息：
type
  TForm1 = class(TForm)
    Memo1: Edit;
  private
    procedure WMSetFocus(var Msg: TMessage); message WM_SETFOCUS;
    procedure WMKillFocus(var Msg: TMessage); message WM_KILLFOCUS;
  public
    { Public declarations }
  end;
 
procedure TForm1.WMSetFocus(var Msg: TMessage);
begin
  if TObject(Msg.LParam) = Memo1 then
    Memo1.Color := clRed;
end;
 
procedure TForm1.WMKillFocus(var Msg: TMessage); 
begin
  if TObject(Msg.LParam) = Memo1 then
    Memo1.Color := clWhite;
end;

响应Edit的两个事件：
onMouseEnter和onMouseLeave。
在前一个事件中设置颜色，在后一个事件中改回原来的颜色。

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.Color:=clred;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
edit1.Color:=clWindow;
end;

那你在onenter和onexit事件里去写代码