Mouse Bewegung überprüfen

[Nils_13]

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
inc(MMoveClose);
if MMoveClose > 3 then close;
end;

Wird in 3 Sekunden geschlossen ... verdammt.