难！！！急！！！一个捆饶高手的总题!!!!!!!!!!!!!!!!!!!!!!!!!!!!(30分)

H

huait

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #1

怎么在Button的OnClick事件中判断鼠标的左右键！！！

var
Button:TMouseButton;
begin
if Button=mbLeft then ShowMessage('ssss');
end;

以上程序不好使，怎么办

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #2

Onclick只由左键触发[]

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #3

还真是难题！！！

 

D

delphi_lsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #4

你可以变通一下，在mouseup事件中写代码，就可以了。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #5

捆饶高手？？？

高手，
看看delphi_lsl的回复，不过最好在OnMouseDown中检测。
或者通过消息，消息在Messages Unit里有定义！

 

Q

Qiuliang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #6

本来 OnClick 只能由鼠标左键触发。如果那个控件鼠标左右键都能触发 OnClick 的话可如下处理：
OnMouseDown 事件在 OnClick 事件之前触发，先在 OnMouseDown 事件中判断鼠标的左右键然后再
置相应标记，在 OnClick 事件中判断该标记。

 

枫

枫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-21

• #7

老大，你的那个button是那一个呀，怎么我试的button都只能左键点击呀？
如果你的button可以左右键点击的话，那是不是有一个keycode返回的呀。如果没有keycode返回
那么你就在onmousedown里判断左右键就行了。

 

G

godhill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #8

应该放弃OnClick，使用OnMouseDown可以解决问题。
OnMouseMove->OnMouseDown->OnClick

 

D

dcsdcs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-25

• #9

使用OnMouseDown可以解决问题。
OnMouseMove->OnMouseDown->OnClick
要么自己获取消息.

 

H

hanjy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-28

• #10

先在onmousedown中判断左右键,并作标记,再在onmouseup中根据标记完成你的工作并
清除标记。记住在窗体的onmousemove事件中也加入清除标记的程序。