Delphi 鼠标移动

procedure TForm1.Button1Click(Sender: TObject);
var
oldPoint, newPoint: TPOINT;
begin
GetCursorPos(oldPoint); //保存当前鼠标位置。
newPoint.x := oldPoint.x + 400;
newPoint.y := oldPoint.y + 100;
SetCursorPos(newPoint.x, newPoint.y); //设置目的地位置。
Sleep(1000 * 3);
// mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //模拟按下鼠标右键。
// mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); //模拟放开鼠标右键。
// mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //模拟按下鼠标左键。
// mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //模拟放开鼠标左键。
// keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0, 0); //按下SHIFT键。
// keybd_event(0x52, MapVirtualKey(0 x52, 0), 0, 0); //按下R键。
// keybd_event(0x52, MapVirtualKey(0 x52, 0), KEYEVENTF_KEYUP, 0); //放开R键。
// keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0); //放开SHIFT键。
SetCursorPos(oldPoint.x, oldPoint.y);

end;

--=================================================================================================================

//获取鼠标在窗体中的当前位置
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
str: string;
begin
str := Format('%d,%d',[X,Y]);
ShowMessage(str);
end;

//用 GetCursorPos 获取的是鼠标相对与屏幕的位置
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);
str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;

//但通过 ScreenToClient 方法可以转换过来
var
ps: TPoint;
str: string;
begin
GetCursorPos(ps);

ps := ScreenToClient(ps);

str := Format('%d,%d',[ps.X,ps.Y]);
ShowMessage(str);
end;

// ClientToScreen 函数
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
str: string;
ps: TPoint;
begin
{显示当前鼠标位置, 这是相对于窗体的}
str := Format('%d,%d',[X,Y]);
ShowMessage(str);

{通过 ClientToScreen 函数可以得到当前鼠标相对于屏幕的位置}
ps := point(X,Y);

ps := ClientToScreen(ps);
str := Format('%d,%d',[ps.X, ps.Y]);
ShowMessage(str);
end;

Delphi 鼠标移动相关推荐

Delphi 鼠标模拟点击
//Delphi 鼠标模拟点击 1.把句柄窗口设置成顶置窗口 2.保存鼠标当前位置 3.把鼠标移动到新的位置 4.执行右键或左键操作 5.鼠标移动到原来位置 procedure TForm1.btn2 ...
delphi 鼠标获取窗口句柄_Windows窗口自定义，只需WindowTop一键设置
WindowTop 是一款窗口自定义设置工具可将任意窗口置顶.修改透明度等等「窗口置顶」将窗口置顶,可以方便我们对比.写作.修改文案等等使用WindowTop[窗口置顶]来将窗口钉在桌面最上方 ...
delphi 鼠标获取窗口句柄_Python 脚本自动对窗口进行截图
利用Python自带的win32api和win32con.win32gui等模块,我们能执行许多windows下的自动化操作.比如两个窗口的自动点击操作,从软件中的窗口复制文本到txt中,甚至是截图操 ...
Delphi下利用WinIo模拟鼠标键盘详解
本文最早在编程论坛上发表,文章地址:http://programbbs.com/bbs/view12-17207-1.htm,相关文件可以在上述地址的页面中下载.转载时请注明出处. 前言一日发现Se ...
用Delphi实现Windows的鼠标钩子函数
用Delphi实现Windows的鼠标钩子函数 Delphi是基于PASCAL语言的Windows编程工具,功能十分强大.然而在Delphi的帮助文件中,对Windows API函数的说明沿袭了 V ...
usb 键盘码表_键盘鼠标对应码表-delphi键值
在操作API的时候很多时候需要用到我们键盘上的按键,这里是对照的常数名称十六进制值十进制值对应按键 VK_LBUTTON 01 1 鼠标的左键 VK_RBUTTON 02 2 鼠标的右键 VK ...
Delphi下实现鼠标自动点击器
本文最早在编程论坛上发表,文章地址:http://programbbs.com/bbs/view12-20849-1.htm,相关文件可以在上述地址的页面中下载.转载时请注明出处. 众所周知,当鼠标指 ...
delphi 应用程序工厂_Delphi应用程序中的高级鼠标处理
delphi 应用程序工厂 You might already know how to handle some basic mouse events like MouseUp/MouseDown an ...
DELPHI编模拟鼠标，键盘操作，比键盘鼠标录制软件更强
打网游朋友都知道,要下载一些录制鼠标键盘的操作,来代替频繁的手工操,但经过笔者测试发现,许多录制鼠标键盘软件,不是收费的,就是暗藏木马,得不偿失.会delphi编程朋友,用下面的代码,DIV自己的小程 ...
DELPHI中鼠标的各种操作
{鼠标:右击,左击,单击,双击,滚轮,拖曳} Delphi程序设计中的鼠标控制在Windows环境下,鼠标和键盘是主要的输入设备. 在Delphi中几乎每个对象都具有反映鼠标控制的事件, 这些事件的 ...

Delphi 鼠标移动

Delphi 鼠标移动相关推荐

最新文章

热门文章