首页 > 其他分享 >在delphi用移动鼠标左键配合shift的方法选择部分文字

在delphi用移动鼠标左键配合shift的方法选择部分文字

时间:2024-07-03 18:30:57浏览次数:23  
标签:MOUSEEVENTF 鼠标 SHIFT delphi 按下 shift mouse event 键配合

procedure TForm1.ButtonPen1Click(Sender: TObject); begin SetCursorPos(694, 352); //设置开始的位置。 Sleep(300); // 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键。 SetCursorPos(768, 352); //设置结束的位置。 mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //模拟按下鼠标左键。 mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //模拟放开鼠标左键。 // 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键。 end;

标签:MOUSEEVENTF,鼠标,SHIFT,delphi,按下,shift,mouse,event,键配合
From: https://www.cnblogs.com/yehuiyan/p/18282359

相关文章

  • Delphi换行_这里只换一行
    开发环境DelphiXe11;这个代码不适用于Delphi7,一般不适用于Delphi2007之前的版本;这个图片:12个字(汉字)换行;2数字和2字母认为等于1汉字;这个换行不大行,全是小写的字母占占用的位置比较少,如果要效果好的,请自己写;  --Unit-- unitUnit1;interfaceusesWinapi.Windows......
  • xorshift 论文解析
    论文地址//xorshiftpaper:https://www.jstatsoft.org/article/view/v008i14/xorshift.pdf1.介绍.方法:把一个数跟他自己shift之后的数做异或.重复几次得到的数就是一个随机数.用c语言来说就是y^(y<<a)ory^(y>>a)2.理论:数学上RNG算法可以写作.我们给一个种子集合Z......
  • delphi Image32 变形控制
    先看动画:  代码:1unituFrmTransform;23interface45uses6Winapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,7System.Types,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.Forms,8Vcl.Dialogs,Vcl.Menus,Vc......
  • delphi Image32 图像采样
    图像数据采样  代码:1unituFrmImageResampling;23interface45uses6Winapi.Windows,Winapi.Messages,Winapi.ShellAPI,//7System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,8Vcl.Forms,Vcl.Dialo......
  • HDLBits练习Shift18 Verilog逻辑右移和算数右移的区别
    算术右移时,移入的是移位寄存器中数字(本例中为q[63])的符号位,而不是逻辑右移时的零。右移n位,即加入n位符号位。即若符号位为1,在左边补1;若符号位为0,就补0。算术右移的另一种思路是,它假定被移位的数字是带符号的,并保留符号,因此算术右移是右移n位将带符号的数字除以2的n次幂。......
  • Delphi 生成随机验证码
    Delphi生成随机验证码functionCodeImg(img:Timage):string; var  I,j,k: Integer;  vPoint: TPoint;  vLeft: Integer;  arrStr:array[1..36]ofstring;  strResult:string; begin  strResult:='';  arrStr[1]:=......
  • delphi:利用定时器读取串口返回数据
    定时器20毫秒运行一次,单字符读取,如果读取到就保存到全局变量receData中,否则就输出到文本框中,并重置receData。优点:单字符读取,解决了按长度读取的弊端,如果按长度读取,很多时候并不知道究竟要读取多长,有的时候能读取完整,有的时候只读取了部分。procedureTfrmLC.tmrReceDataTimer(S......
  • 四. TensorRT模型部署优化-quantization(mapping-and-shift)
    目录前言0.简述1.近10年模型的变化与硬件的发展2.模型量化回顾3.什么是量化4.量化会出现什么问题5.量化的基本原理:映射和偏移6.量化的基本原理:基本术语6.1量化和反量化6.2对称量化和非对称量化6.3量化粒度6.4校准6.5PTQ和QAT7.其他:有关量化学习的激活函数......
  • k8s学习--Traffic Shifting 流量接入
    文章目录应用环境一、Argorollouts安装1.在Kubernetes集群中安装argorollouts2.安装argorollouts的kubectlplugin3.Argo-RolloutsDashboard二、负载均衡器metallb部署1.修改kube-proxy代理模式2.metallb部署3.IP地址池准备4.开启二层通告三、TrafficShifting......
  • delphi Image32 图片转换成SVG
    image32中有2种算法转换图像为svg,一种是按透明度计算找边缘,另一种是分析像素梯度找边缘,demo代码整理后如下:unituFrmImageToSVG;interfaceusesWinapi.Windows,Winapi.Messages,System.SysUtils,System.Variants,System.Classes,Vcl.Graphics,Vcl.Controls,Vcl.......