Check if left mousebutton is clicked?

Rias Sherzad

Delphi Developer

Wed, 30 Dec 1998 03:00:00 GMT

Check if left mousebutton is clicked?

Hi!

How do I check if the left mousebutton is pressed (not
WM_LMOUSEBUTTONDWON)??? I need a function that returns a value
(true/false)!

Tnx in advance!

leona...@dame.de

Joseph B. Ha

Delphi Developer

Sun, 03 Jan 1999 03:00:00 GMT

Re:Check if left mousebutton is clicked?

Quote

Rias Sherzad <christof.schm...@hamburg.isys.de> wrote:
>Hi!
>How do I check if the left mousebutton is pressed (not
>WM_LMOUSEBUTTONDWON)??? I need a function that returns a value
>(true/false)!
>Tnx in advance!
>leona...@dame.de

You can create a global boolean variable like MouseIsDown and set it
to FALSE in the form's OnShow. In OnMouseDown, set MouseIsDown to TRUE
and in OnMouseUp set MouseIsDown to FALSE.

Within remaining code use global boolean like a function:
if(MouseIsDown)then blah,blah,blah...
while(MouseIsDown)do
begin
blah,blah,blah,...
Application.ProcessMessages;
end;

Rob Lan

Delphi Developer

Fri, 08 Jan 1999 03:00:00 GMT

Re:Check if left mousebutton is clicked?

Use:

function MouseLeftButtonIsDown: booelan;
begin
result := (GetAsyncKeyState(VK_LBUTTON) and $1000);
end;

--
Rob Lans
E-mail: rob.l...@nob.nl

Rias Sherzad <christof.schm...@hamburg.isys.de> wrote in article
<31E7579D.6...@hamburg.isys.de>...

Quote

> Hi!

> How do I check if the left mousebutton is pressed (not
> WM_LMOUSEBUTTONDWON)??? I need a function that returns a value
> (true/false)!

> Tnx in advance!

> leona...@dame.de

Other Threads

1. Check If Left Mousebutton Is Pressed???

2. Double click - left click

3. making left click and right click equal?

4. How can I make right click emulate left click

5. Check if mousebutton is doubleclicked

6. How to check mousebutton state ?

7. How to check the mousebutton state

8. How to check mousebutton state ?

9. Checking a check box without generating a click event

10. delphi 3 printing source code / detecting right / left mouse clicks