Maus Event ausserhalb des Formulars?

[Christian Seehase]

Moin Chris,

wenn Du damit leben kannst, vorher in Deinem Programm die linke Maustaste zu drücken und dann gedrückt zu lassen, während Du mit dem Cursor ausserhalb Deines Programmes navigierst, geht's auch ohne Hooks.

Delphi-Quellcode:

// Einzutragen in ein beliebiges OnMouseDown Event

var
  ptCursor     : TPoint;
  hWindow      : DWord;

begin
  if Button <> mbLeft then exit;
  repeat
    Application.ProcessMessages;
    GetCursorPos(ptCursor);
    hWindow := WindowFromPoint(ptCursor);
    // und mit dem gefundenen Handle etwas machen
  until GetAsyncKeyState(VK_LBUTTON) = 0;
end;