如何用delphi实现鼠标的各种操作

如题所述

第1个回答  2017-02-16
在窗体的事件中有mousedown、mouseup、mousemove、mousewheel、mousewheelup、mousewheeldown 共6个事件,灵活使用这些事件可实现很多的鼠标操作。
具体请参阅专业的资料。本回答被网友采纳

DelPhi怎样模拟鼠标单击?
SetCursorPos(newPoint.x,newPoint.y); \/\/设置目的地位置。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...

在delphi中,如何实现鼠标滑到图片上,在一个文本框显示提示信息,并且...
控件只能感知鼠标移入,移出后它就感知不了。Delphi隐藏了消息循环,但它自定义了一些消息,用于处理鼠标移入、移出。type TForm1 = class(TForm)Edit1: TEdit;Image1: TImage;private procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;procedure CMMouseLeave(var Msg: TMessage); ...

delphi 用代码模拟2个鼠标、键盘操作,高手进
第一个问题回车实现下拉:procedure TForm1.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then begin SendMessage(DateTimePicker1.Handle, WM_LBUTTONDOWN, MK_LBUTTON, DateTimePicker1.WIDTH-5);end;end;第二个问题 模拟鼠标的左右键:Mouse_Event(MOUSEEVENTF_L...

delphi中怎么在DBgrid中实现鼠标滚轮效果
在新版本 delphi 中,DBGrid 组件自带有响应鼠标滚动事件:如果当前 DBGrid 组件没有鼠标滚动消息事件,可以通过 Application 进行自定义消息实现,以下是示例代码:procedure ApplicationEvents1Message(var Msg: tagMSG;var Handled: Boolean);procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;...

Delphi 模拟鼠标点击
然后就是需要移动 鼠标了 SetCursorPos 100,100 这样是设置鼠标到屏幕的 100,100的位置 可根据你自己的需要修改 如果你有一定编程基础我上面的这些就已经能够帮你了。 特殊声明:API在VB里需要声明 在DELPHI里不需要声明 直接调用即可。 (最上面的那些常量 可以直接带到函数里使用。)...

请问如何用delphi 模拟移动点击鼠标,
添加一个timer1控件+button1,将里面的代码全替换如下就可以了 unit Unit1;interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm)Button1: TButton;Timer1: TTimer;procedure Button1Click(Sender: TObject...

Delphi锁定鼠标的方法
Delphi设置鼠标信息,当鼠标静止无操作时会自动隐藏鼠标,锁定鼠标,切换左键和右键,交换鼠标,模拟鼠标左右键单击效果,以下是主要的代码。001 unit Unit1;002 interface 003 uses 004 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,005 Dialogs, StdCtrls, ...

Delphi里的DBGrid鼠标滚轮事件
在窗体添加一个TApplicationEvents组件(在Additional中),然后在它的OnMessage事件中添加如下代码:procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin \/\/ 当在 DBGrid1 上发生鼠标滚轮事件时 if (DBGrid1.Focused) And (Msg.message = WM_MOUSEWHEEL) th...

在Delphi中怎样抓取鼠标形状
{鼠标:右击,左击,单击,双击,滚轮,拖曳} Delphi程序设计中的鼠标控制 在Windows环境下,鼠标和键盘是主要的输入设备。在Delphi中几乎每个对象都具有反映鼠标控制的事件, 这些事件的主要功能包括改变鼠标指针的形状,移动、触发、拖动鼠标等。 鼠标控制的三个相关属性是Cursor、DragCursor、DragMode; 鼠标(拖拽)控制的三个...

Delphi鼠标滚轮如何编程
我们使用的鼠标,很多都带有一个滚轮,方便用户的操作。但遗憾的是,平时编程多数只利用到鼠标的左、右两键,如果将滚轮操作功能也加进你的程序,定能使其增色不少。当鼠标指针指向窗体中时,Delphi为滚轮滚动提供OnMouseWheel事件,我们可以对它进行相应的处理。本例中,在窗体内放置一标签Label1,用于...

相似回答