简单问题：如何判断鼠标左键是否按下？(50分)

M

mynlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #1

简单问题：如何判断鼠标左键是否按下？

 

G

gxcooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #2

if (GetAsyncKeyState(VK_LBUTTON) and $8000)<>0 then
; 表示左键按下

 

W

wangfu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #3

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
; Shift: TShiftState; X, Y: Integer);
begin
; if button= mbLeft then
; ; ShowMessage('你点击了左');
end;

 

T

taozhiyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #4

as wangfu

 

E

e518

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #5

如果在MEMO等控件内可在MOUSEUP中判断，

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #6

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

 

M

mynlxx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-21

• #7

接受答案了.