MOUSE Maus Over 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.

vgl. - Maus_Click - Maus_Moved - InitMaus - DoneMaus

Deklaration

UNIT Mouse;
FUNCTION Maus_Over(x1, y1, x2, y2 : Integer) : 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_Over(100, 100, 200, 200) THEN
    BEGIN
      { Mache etwas }
    END;
  UNTIL Maus_Over(400, 400, 450, 500) OR KeyPressed; { Schleife durchlaufen, bis Maus über dem }
                                                     { zweiten Rechteck oder eine Taste betätigt }
  IF KeyPressed THEN ReadKey; { Tastendruck abfangen }
  DoneMaus;                   { Maus abschalten }
END.

---