如何捕获鼠标单击，双击,右击事件?(200分)(200分)

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #1

当鼠标在屏幕任意位置点击时，如何捕获此事件？？

 

J

jianl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #2

这里有现成的。呵呵。

type
TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
procedure FORM_WMLBUTTONDOWN(var Message: TMessage);message WM_LBUTTONDOWN;

public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.FORM_WMLBUTTONDOWN(var Message: TMessage);
var
aPoint:TPoint;
Msg:TWMLBUTTONDOWN;
begin
inherited;
Msg := TWMMouse(Message);
apoint := Point(Msg.XPos,Msg.YPos);
if (0<aPoint.x)and(aPoint.x<200)and(0<aPoint.y)and(aPoint.y<200) then
postmessage(edit1.handle,WM_KeyDown,65,0);

end;


end.

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #3

我把后面的续完
if (0〈aPoint.x)and(aPoint.x〈200)and(0〈aPoint.y)and(aPoint.y〈200) then
postmessage(edit1.handle,WM_KeyDown,65,0);
end;

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #4

上面程序的功能是：
当鼠标在窗体的 X0,200) Y0,200) 区域内点下
才向edit1的text中添加一个小写的“a”。

 

I

iamfly2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #5

dxpjj的“屏幕任意位置”不知是否包括了你所做的程序以外的位置呢？如果是的话，那么
可以告诉你，用JIANL的方法我试过，只能在程序的表单范围以内有响应，要想在程序以外
的范围也有响应的话，就要用到HOOK了，这样的例子在这里多的是，在前面搜索一下，就可
找到你想要的了！

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #6

用消息最好
左击 -〉WM_LBUTTONDOWN、WM_LBUTTONUP、WM_LBUTTONDBLCLK
右击 -〉WM_RBUTTONDOWN、WM_RBUTTONUP、WM_RBUTTONDBLCLK
中击 -〉WM_MBUTTONDOWN、WM_MBUTTONUP、WM_MBUTTONDBLCLK

 

N

netredfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #7

只好用到mousehook了
例程到处都有

 

C

cat.yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #8

JIANL+cat.yy的方法只能在窗体内有效
外面只好用到mousehook

 

L

lww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #9

来晚了，的确要用mousehook

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #10

不必用Hook
只要SetCapture就可以了. 不过只能捕捉一次mouse的按键, 因为按了键后焦点就转移
到其他程序上去了

 

C

CathyEagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-19

• #11

HOOK

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #12

谢谢大家的关注，小弟在此道一声万福！！
谁有mousehook的原代码寄份给我，银子归你了！！e_mail:dxpjj@263.net

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #13

iamfly2000说得对，要包含自己程序以外的范围也有响应.

 

J

jianl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #14

请看E-MAIL，dxpjj.

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #15

是否有mousehook的源码？？同时，有要在鼠标点击屏幕时的事件中加一段代码。

 

F

Fyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-20

• #16

我也想知道

 

D

dxpjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #17

天哪！怎么没有响应，急晕了！
可能大家理解错了，我要在鼠标点击时的事件中加入一此代码，如form1有onmousedown,onmousemove等事件，
但该事件只对form1上有效，若在form1外点击鼠标就不响应事件，如何在任意位置响应呢？？？

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-21

• #18

那不是已经解决了么？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #19

dxpjj:差不多就结束你的问题！

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-12-12

• #20

多人接受答案了。