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;