MOUSE Maus Move Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Nach Aufruf dieser Prozedur läßt sich ein mit Maus_NoMove angehaltener Mauszeiger wieder bewegen.

vgl. - Maus_NoMove - Maus_Hide - Maus_UnHide

Deklaration

UNIT Mouse;
PROCEDURE Maus_Move;

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
    IF KeyPressed THEN { Tastendruck abfangen und Mauszeiger anhalten oder loslassen }
    BEGIN
      ReadKey;
      IF Maus.NoMove THEN Maus_Move
                     ELSE Maus_NoMove;
    END;
  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.

---