急用.如何用代码把我的鼠标移动到界面上指定的控件上.(急!!!马上结贴)

Question

RT

Answer 1

得到控件的Trect，然后clipcursour()

Answer 2

// 移动鼠标到控件procedure MoveMouseIntoControl(AWinControl: TControl);
var
  rtControl: TRect;
begin
  rtControl := AWinControl.BoundsRect;
  MapWindowPoints(AWinControl.Parent.Handle, 0, rtControl, 2);
  SetCursorPos(rtControl.Left + (rtControl.Right - rtControl.Left) div 2,
    rtControl.Top + (rtControl.Bottom - rtControl.Top) div 2);
end;

Answer 3

支持 GoldShield(金盾)，测试通过  MoveMouseIntoControl(memo1)

Answer 4

var
        ThePoint: TPoint;
        hw:hwnd;
        windrect: Trect;..
setforegroundwindow(hw);
getwindowrect(hw,windrect);
.....procedure mouseclick();
begin
        setcursorpos(thepoint.X,thepoint.Y);
        mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
        mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);
end;

Answer 5

rabbit1125(兔子) 测试通过

Answer 6

谢谢  GoldShield(金盾) 
  搞定