Form上有很多個Edit物件

請問要如何在滑鼠移動到任何一個Edit 上時

會將該Edit 的內容全選

有試過使用mousemove事件

不過那要在Edit有focus狀況下才有用

編輯記錄

查查GetCursorPos有很多相关的知识，稍微改了改看是不是你想要的。

procedure TForm1.Timer1Timer(Sender: TObject);
var
Pt : TPoint;
WinCon : TWinControl;
WND : HWND;
begin
GetCursorPos(Pt);
WND := Handle;
repeat
WinCon := FindControl(WND);
WND := ChildWindowFromPoint(WinCon.Handle,WinCon.ScreenToClient(Pt));
if WND = 0 then exit;
until
(WND = WinCon.Handle) or (WinCon.ControlCount <= 0);
TEdit(FindComponent(wincon.Name)).SetFocus;
TEdit(FindComponent(wincon.Name)).SelectAll;
end;