MOUSE Maus SetZeiger Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Mit dieser Prozedur läßt sich der Mauszeiger an die mit x|y bezeichneten Koordinaten des Bildschirms setzen.

vgl. - Maus_Window

Deklaration

UNIT Mouse;
PROCEDURE Maus_SetZeiger(x, y : Integer);

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
    Maus_SetZeiger(Random(GetMaxX), Random(GetMaxY)); { Mauszeiger springt wild herum }
    Delay(100);
  UNTIL Maus_Click(0, 0, GetMaxX, GetMaxY, mb_left); { Schleife durchlaufen, bis mit der }
                                           { Maus links auf den Bildschirm geklickt wird } 
  DoneMaus;                   { Maus abschalten }
END.

---