MOUSE Maus NoMove Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Nach Aufruf dieser Prozedur läßt sich der Mauszeiger nicht mehr bewegen.

vgl. - Maus_Move - Maus_Hide - Maus_UnHide

Deklaration

UNIT Mouse;
PROCEDURE Maus_NoMove;

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.

---