MOUSE Maus Click Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Liefert TRUE zurück, wenn sich der Mauszeiger im Rechteck x1|y1 (linke obere Ecke) bis x2|y2 (rechte untere Ecke) befindet und die im Parameter mb_click angegebene Maustaste gedrückt wurde.

vgl. - Maustastenkonstanten - Maus_Over - Maus_Moved - InitMaus - DoneMaus

Deklaration

UNIT Mouse;
FUNCTION Maus_Click(x1, y1, x2, y2 : Integer; mb_click : Byte) : Boolean;

Beispiel

PROGRAM Test; 
USES GFX, Mouse, Crt;
BEGIN
  InitGraph(Mode800x600x16);  { Grafikmodus initialisieren }
  Rectangle(100,100,200,200);
  Rectangle(400,400,450,500);
  InitMaus;                   { Maus wird initialisiert }
  REPEAT                      { Schleife }
    IF Maus_Click(100, 100, 200, 200, mb_left) THEN
    BEGIN
      { Mache etwas }
    END;
  UNTIL Maus_Click(400, 400, 450, 500, mb_left) OR KeyPressed; { Schleife durchlaufen, bis mit der }
                                           { Maus auf das zweite Rechteck links geklickt wird      } 
                                           { oder eine Taste betätigt wird }
  IF KeyPressed THEN ReadKey; { Tastendruck abfangen }
  DoneMaus;                   { Maus abschalten }
END.

---