将光标移到指定的位置

Question

假设，Form上有个Edit1,如何编程实现光标停留在Edit1的左上角(相对位置为:Edit1.Left,Edit1.Top)，谢谢!

Answer 1

edit1.SetFocus;
  edit1.SelStart:=0;

Answer 2

SetCursorPos(left+edit1.Left,top+edit1.Top+20);

Answer 3

to: hongqi162(失踪的月亮) 
  经过测试，如果Edit直接放在Form上，则没问题，如果Edit放在Panel上则不行，是否要考虑父类位置。

Answer 4

function SetConPos(Handle:HWND):Boolean;
var
rect:TRect;
beginGetWindowRect(Handle,rect);
Result:=SetCursorPos(rect.Left,rect.Top);end;//调用：
SetConPos(edit1.handle);

Answer 5

谢谢wywry(Wyatt) 答案，完全满足我的要求!