MOUSE Maus Moved Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert TRUE zurück, wenn die Maus bewegt wurde.

vgl. - Maus_Over - Maus_Click - InitMaus - DoneMaus

Deklaration

UNIT Mouse;
FUNCTION Maus_Moved : Boolean;

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
  UNTIL Maus_Moved OR KeyPressed; { Schleife durchlaufen, bis die Maus bewegt wird }
                                  { oder eine Taste betätigt wird }
  IF KeyPressed THEN ReadKey; { Tastendruck abfangen }
  DoneMaus;                   { Maus abschalten }
END.

---