Applikationsweites MouseMove

[melodie]

Ich möchte feststellen, wenn der Benutzer die Maus irgendwo in der Applikation bewegt. Es kann auch Systemweit sein, da das Programm im Vollbildmodus läuft.
Wie stelle ich das an?

[Dunkel]

Hallo!

Eine Ereignisbehandlung für TForm.OnMouseMove sollte IMHO genügen.

[melodie]

Ich habe aber ein TNotebook auf der vollen Größe der Form und dann wird das Ereignis nicht aufgerufen. Das andere Problem ist, dass ich mehrere Forms habe.

[toms]

Hallo,

Setze eine TApplicationEvents Komponente auf deine Form und überprüfe im OnMessage Ereignis
die Nachrichten auf WM_MOUSEMOVE.

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if (Msg.message = WM_MOUSEMOVE) then
   begin
     Caption := Format('%d:%d', [Mouse.CursorPos.X, Mouse.CursorPos.Y]);
    end;
end;

[melodie]

Vielen Dank. Das hat geklappt.

Wie würde denn "Msg.message" bei einem KeyPress oder MouseWheel lauten?

[sirius]

Suche dir hier oder hier das passende raus!

[melodie]

Danke.