Go Premium for a chance to win a PS4. Enter to Win

  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1727
  • Last Modified:

Trapping double-click before mouse down event


I am wondering if it is possible to delay the processing of the MouseDown event until after processing a DoubleClick event.

I need to use MouseDown, but I also have to check for a double-click.  The double-click needs to take precedence over an ordinary mouse down event.

Can the MouseDown event be delayed?
1 Solution
That's what I've written on top of my tools unit. It's the order of the mouse messages. "d=down; c=click; u=up; 2=double click".
So you see, the second mouse down comes AFTER the double click event. So all you have to do is set a variable in the double click event that the next down event must not be handled.
Or do you want to delay the FIRST mouse down event? That will not be possible, because at that time noone knows (perhaps even the user not) whether it will be a single or a double click.

Regards, Madshi.
jdthedjAuthor Commented:
Hi Madshi - Thanks for replying

Thanks for the order of processing - it helps a bit - I think, but my application works in a similar way to a lot of regular windows programs - the user may either double-click an item, or single click and then click OK.  

I have to use MouseDown to retrieve the X and Y coordinates of the hotspot area so that I know that the user has clicked in the right place.

Any ideas??

It's simple. in the mousedown procedure, just call the doubleClick event with the correct parameters in the first statement. So in this way, a doubleclick event is called before the mousedown event.

but beware: this is very tricky.

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

What you want is very easy to achieve using the OnMousemove event.
This event (from Tcontrol, but not always published) fires when the mouse is over the control. And that seems to be the only thing you want?

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 Caption:='Yes, i"m here';

You mean, you need the position of the mouse at the time the double click has happened?
You could write an own message handler for the WM_LBUTTONDBLCLK message. Windows tells you the position with this message. Delphi hides the position, don't know why.

Add this to your main form:
    procedure LButtonDblClick(var Message: TMessage); message WM_LBUTTONDBLCLK;

Regards, Madshi.
jdthedjAuthor Commented:
Thanks for the replies.  I think I still need to clarify a bit.

If a person double-clicks I need to IGNORE an OnClick event or a MouseDown event, but the problem is that a single click or a mouse down event fires before the double click event.  

Any thoughts?  
Ok, how about that:
you could do nothing but set a timer in the MouseDown or MouseClick event that is fired before the double click event.
Then, if the double click event is fired before the timer has expired, you could stop the timer and do the double click action. Otherwise, when the timer has expired and there were no double click event in the meanwhile you could do the mouse down/mouse click action.
Have I understood this time, what you need?
If I have, this is the only way I can image to solve your problem...

Regards, Madshi.
jdthedjAuthor Commented:
Hi Madshi - Thanks for your patience.

You have shown me what to do, so if you would like to turn your latest reply into an answer I will give you the points.  Thanks again.

Sorry Makli, but your answer was not quite what I was looking for.
Thanx, jdthedj...    :-)

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now