var
point: TPoint;
begin
Application.BringToFront;
Form1.WindowState := wsMaximized;
Form1.FormStyle := fsStayOnTop;
// edt1.SetFocus;
point.x := edt1.left + 3;
point.y := edt1.Top + 3;
windows.ClientToScreen(form1.handle, point);
setcursorpos(point.x, point.y);
mouse_event(MOUSEEVENTF_LEFTDOWN, point.x,point.y, 0, 0);
Sleep(10);
mouse_event(MOUSEEVENTF_LEFTUP, point.x, point.y, 0, 0);
end;
模拟鼠标点击操作
猜你喜欢
转载自my.oschina.net/u/582827/blog/1799692
今日推荐
周排行