Auswerten von Mousehooknachrichten

[Chris P]

Hi Leute,

ich möchte die Mousehooknachrichten die an mein Programm geschickt werden auswerten.
Dabei soll unterschieden werden, ob der Cursor bewegt wird oder ob eine der Maustasten gedrückt wurde!

Die Auswerten in meinem Programm sieht so aus:

Delphi-Quellcode:

procedure TForm1.DllMessage(var Msg: TMessage);
begin
   case Msg.WParam of
          WM_MOUSEMOVE: 
                       Label1.Caption := 'MOUSEMOVE';
                          
          WM_LBUTTONUP,
          WM_MBUTTONUP,
          WM_RBUTTONUP: 
                       Label1.Caption := 'BUTTONCLICK';
         
   end;

end;

WM_MOUSEMOVE funktioniert ohne Proleme, aber wenn ich eine Maustaste drücke,
dann steht in Label1 erst BUTTONCLICK und dann trotzdem MOUSEMOVE.

Warum wird die case-Anweisung WM_MOUSEMOVE beim Drücken einer Maustaste auch ausgelöst???

Kann mir jemand helfen? Danke...