Hallo,
in einem etwas älteren Projekt habe ich das mal so gelöst:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
if (Mouse.CursorPos.X > (Form1.Left + Form1.Width)) or (Mouse.CursorPos.X <
Form1.Left) or
(Mouse.CursorPos.Y > (Form1.Top + Form1.Height)) or (Mouse.CursorPos.Y <
Form1.Top) then
MessageDlg('Erwischt', mtInformation, [mbOk], 0);
Timer1.Enabled := true;
end;
Also per TTimer. Den Interval hatte ich auf 50 stehen.
Geht aber bestimmt eleganter per Mouse-Hook.