Solved

Controls do not recieve middle mouse button events occurring outside the client area.

Posted on 2011-02-18
9
658 Views
Last Modified: 2012-05-11
I have a TImage-derived component to which I'm attempting to add middle-click panning functionality.  It seems that middle mouse events do not get delivered to my component when the mouse cursor is outside of it's client area, like left and right mouse events do.

I've tried intercepting the WM_NCMBUTTONUP message using a message handler, and even overriding the WndProc function, and I still never see this message come through.

The component also does not seem to receive Mouse Move messages when the cursor is outside the client area and the middle button is down.  It does receive the non-client Mouse Moves when the left or right button is down.

I can provide a small demo project if what I'm asking isn't clear enough.
0
Comment
Question by:ShawnCurry
9 Comments
 
LVL 24

Expert Comment

by:jimyX
ID: 34930436
Could you provide a demo or show some code please?
0
 
LVL 3

Author Comment

by:ShawnCurry
ID: 34931445
I've attached a demo that I've created exploring 2 alternate methods for receiving the missing events.  All the results are essentially the same.

To Test:
Place the mouse cursor inside the client area of the component.
Click and release each mouse button individually.
 - Should receive MouseUp notification
For each mouse button, place cursor in client area, click and drag outside client area, release.
 - Should receive MouseUp notification
 * Only receive MouseUp notification for left mouse button.

MiddleMouse.zip
0
 
LVL 24

Expert Comment

by:jimyX
ID: 34931855
That seems not catching. I can think of work around solution:
I used a Panel but you can apply this to the descendant components as well.
MiddleMouseUpdated.zip
0
ScreenConnect 6.0 Free Trial

At ScreenConnect, partner feedback doesn't fall on deaf ears. We collected partner suggestions off of their virtual wish list and transformed them into one game-changing release: ScreenConnect 6.0. Explore all of the extras and enhancements for yourself!

 
LVL 24

Expert Comment

by:jimyX
ID: 34931872
Here is a complete demo for the three Mouse Buttons:
MiddleMouseUpdated-2.zip
0
 
LVL 24

Expert Comment

by:jimyX
ID: 34931903
Just noticed that will not work outside the client area.
Then you can try the global mouse hook which catches all the mouse events:
http://delphigeek.blogspot.com/2007/02/global-mouse-hook-in-delphi.html
0
 
LVL 32

Expert Comment

by:ewangoya
ID: 34934269

Why would you expect the component to receive messages that do not belong to it. If you click on the form, thats a mouse click on the form and not on your component.

Same as when you have a button on the form, you don't expect the button to get a mousedown event when you click on the form, imagine what kind of problems we would run into.
0
 
LVL 3

Author Comment

by:ShawnCurry
ID: 34934504
The Mouse Hook method does look promising; but I wish I didn't have to put it into a DLL.  Do you have any idea how to figure out what thread I need to attach it to in order to allow it to live in my application?

I am not interested in listening for every single mouse event that occurs.  I'm really only interested in a very narrow set of them that I think I should be receiving now in order to make dragging behavior consistent for all mouse buttons.

Normally, a component wouldn't receive Mouse Move events when the cursor is outside it's client area.  However, they do if the left mouse button is down.  For example, try highlighting some text on this page, and drag the mouse cursor outside of the browser window.  The text selection still responds - or at least that seems normal for Windows applications.  Likewise, I still get the Mouse Up event (for the left button) so long as a Mouse Down event occurred inside the client area.

So, I'm only interested in certain events, and only under certain conditions:

Precondition: Mouse Down inside client area.
Deliver the missing non-client move events.
Deliver the missing non-client mouse up event if it occurs.
0
 
LVL 21

Accepted Solution

by:
developmentguru earned 500 total points
ID: 34935500
Here is a small project that demonstrates capturing all mouse events to a single control, without the use of a DLL.  Place a single panel on your main form in a new project.  Tie in the events as shown in the code.  You will notice that if you move the mouse over the panel that it's caption shows the mouse coordinates for mouse move messages that happen while the mouse is over the control.  Now, hold down the middle mouse button while over the panel and move the mouse off the panel while holding down the middle mouse button.  You will see that you now get mouse move messages even when you are not on the control (until you let go of the middle mouse button).

Let me know if you need more.
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //start capture of mouse messages if the middle button just got pressed.
  if Button = mbMiddle then
    SetCaptureControl(Panel1);
end;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel1.Caption := IntToStr(X) + ' ' + IntToStr(Y);
end;

procedure TForm1.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  //end capture of mouse messages if middle button has been let go.
  if Button = mbMiddle then
    SetCaptureControl(nil);
end;

end.

Open in new window

0
 
LVL 3

Author Closing Comment

by:ShawnCurry
ID: 34937246
Perfect.  Exactly what I was looking for.  Short and sweet.
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Objective: - This article will help user in how to convert their numeric value become words. How to use 1. You can copy this code in your Unit as function 2. than you can perform your function by type this code The Code   (CODE) The Im…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question