Mouse Bewegung überprüfen

[Airblader]

Für dich dürfte das hier wohl genügen:

Delphi-Quellcode:

procedure TForm1.HandleMessage(var Msg:TMessage);
begin
 if Msg.msg = WM_MOUSEMOVE then
   Form1.Close();  

 Form1.wndproc(Msg);
end;

procedure TForm1.OnCreate(Sender:Tobject);
begin
 Form1.Windowproc:=Form1.HandleMessage;
end;

Das ganze ist ein etwas umgebauter Code von hier