在可視控件的onMouseDown事件中如何判斷鼠標按下的是左鍵還是右鍵。(50分)

李

李維

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #1

請舉例說明

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #2

我是侯捷：）

procedure TForm1.Button1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
showmessage('鼠标左键');
end;
mbleft 鼠标左键
mbRight 鼠标右键
mbMiddle 鼠标中间滚轮

 

李

李維

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #3

如何給一個可視控件增加鼠標雙擊事件。請舉例說明。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #4

如果它的父类有双击事件，就不用加了。
如果没有，应该要用到消息吧。其实你不如看看VCL的源码。

procedure TControl.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
SendCancelMode(Self);
inherited;
if csCaptureMouse in ControlStyle then MouseCapture := True;
if csClickEvents in ControlStyle then DblClick;
DoMouseDown(Message, mbLeft, [ssDouble]);
end;

 

李

李維

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #5

請問在哪裡可以看到VCL的源码

 

T

troyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #6

有点业余了吧。

 

L

leway

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #7

zw84611的方法就可以實現。

 

胖

胖的

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-25

• #8

与zw84611一样,事件里的参数很有用,注意看一下帮助

 

李

李維

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-26

• #9

多人接受答案了。