delphi 获取鼠标当前位置的相对坐标unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure FormClick(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//方法一: 使用 OnMouseDown 事件的参数:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//参数中的 X,Y 就是当前鼠标所在位置的坐标
//譬如显示看看:
Text := Format('OnMouseDown: x=%d; y=%d', [X,Y]);
end;
//方法二: 使用 OnMouseMove 事件的参数:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
//参数中的 X,Y 就是当前鼠标所在位置的坐标
//譬如显示看看:
Text := Format('OnMouseMove: x=%d; y=%d', [X,Y]);
end;
//方法三: 使用 OnMouseUp 事件的参数:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//参数中的 X,Y 就是当前鼠标所在位置的坐标
//譬如显示看看:
ShowMessage(Format('OnMouseUp: x=%d; y=%d', [X,Y]));
end;
//方法四: 使用 API 函数 GetCursorPos:
procedure TForm1.FormClick(Sender: TObject);
var
pt: TPoint;
begin
GetCursorPos(pt); {这是获取的相对于屏幕的坐标}
pt := ScreenToClient(pt); {转换成本地坐标}
ShowMessage(Format('API 函数 GetCursorPos: x=%d; y=%d', [pt.X, pt.Y]));
end;
end.
- 浏览: 872919 次
- 性别:
- 来自: 杭州
最新评论
-
zj7243886:
非常感谢,这东西解决我的问题;谢谢你的分享
Linux 安装 jpeg-6b 错误 ./libtool 命令未找到 -
丶Sk.Mabon:
能让html也绕过吗。。机房限制很悲剧
绕过 <?PHP exit(’Access Denied’); ?> 限制 -
丶Sk.Mabon:
请教gzip.php 的写法。万分感谢!
apache 开启 gzip -
hyxj1220:
火狐中单纯的定义这样的样式,貌似不行,必须要让容器浮动
英文长文本换行CSS -
逆水寒龙:
太好了,正好用上,谢谢博主共享
Asp.net 将中文汉字转换成拼音首字和拼音全拼
相关推荐
DELPHI获取鼠标坐标处颜色的源代码。
Delphi记录鼠标每次点击的坐标记录,利用HOOK钩子实现鼠标点击记录程序,记录X/Y坐标值并显示出来,会记录下鼠标X坐标的信息。
delphi获取鼠标坐标 和 屏幕分辨率
DELPHI获取鼠标当前句柄并执行操作源码,获取后可执行一系列窗体操作
Delphi10.3加载Dll文件,实现获取当前鼠标指针坐标功能
Delphi监测鼠标点击、移动等行为,比如监测鼠标是否按下、弹起的是鼠标的左键还是右键、 以及获取鼠标移动的坐标点并适时显示等。
Delphi 获取鼠标按键状态源码,运行本程序后,操作鼠标左右键和中轮,程序将监控到这些鼠标键被按下的状态,并将信息显示在窗口的标题栏中,本程序同时也实现了动态改变窗口标题文字的功能,各个鼠标按键状态获取及...
delphi 定位鼠标在窗口内的位置 显示当前窗口的位置
Delphi点击窗口任何地方会记录下鼠标坐标..rar
delphi获取当前系统时间的13位时间戳。与java获取时间戳对比 ,是一样的结果
鼠标移动事件的应用 procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin self.X := X; self.Y := Y; Dbgrid1.Repaint; end;
Delphi抓取鼠标形状的源码..rar
用Delphi模拟鼠标的单双击..rar
delphi获得windows鼠标的拖动信息
Delphi10.3获取当前磁盘、磁盘空间、扇区字节等信息;仅供初学者交流学习
Delphi获取鼠标指定的空间的句柄,并获取控件的类名和属性值。鼠标拖动点击的特效,非常实用,功能简单,自己开发勿喷。
delphi 实现鼠标拖动label,出现虚框,随鼠标移动的效果
WH_JOURNALRECORD和WH_JOURNALPLAYBACK类型是两种相反的Hook类型,前者获得鼠标、键盘动作消息,后者回放鼠 标键盘消息。所以在程序中我们需要建立两个消息函数,一个用于纪录鼠标键盘操作并保存到一个数组中,另一...
delphi 获取窗口信息 delphi 获取窗口信息
Delphi隐藏鼠标指针..rar