Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi DelphiX und Maus (https://www.delphipraxis.net/13594-delphix-und-maus.html)

Igotcha 22. Dez 2003 00:21


DelphiX und Maus
 
Hallo zusammen,

ich bin dabei, ein Spiel zu erstellen und habe Problem mit dem Menü: Das Menü besteht aus 4 Optionen, die mit der Maus ausgewählt werden sollen. Je nachdem, auf welchem Menüpunkt der Mauszeiger steht, soll vor dem Menütext ein animiertes Sprite angezeigt werden.

Folgendes möchte ich erreichen:

- Wenn Mauszeiger zwischen YPOS>200 AND YPOS<=300 dann stelle Sprite an YPOS=200 dar
- Wenn Mauszeiger zwischen YPOS>300 AND YPOS<=400 dann stelle Sprite an YPOS=300 dar
- Wenn Mauszeiger zwischen YPOS>400 AND YPOS<=500 dann stelle Sprite an YPOS=400 dar
- Wenn Mauszeiger zwischen YPOS>500 AND YPOS<=600 dann stelle Sprite an YPOS=500 dar

DXInput hat mir nichts gebracht, da es nur die Richtung angibt.

DXDrawOnMouseMove bekomme ich auch nicht hin, da die Mainform nur die Gameloop mit den GameStates enthält und alle anderen Bestandteile in eigene Units ausgelagert sind. Mein MenüSprite wird in der Unit "Menu" erzeugt.

Wo und wie frage ich nur für das Menü die Mauskoordinaten in der o.g. Form ab, um das Sprite zu ersetzen, welches auch nur im Menü gebraucht und angezeigt werden soll?

Danke und Gruß,
Kay

Maximus 22. Dez 2003 07:08

Re: DelphiX und Maus
 
Versuchs mal mit OnMouseMove <- Mit Y und X werden die momentane Koordinaten des Mauszeigers zurückgeben

Igotcha 22. Dez 2003 08:51

Re: DelphiX und Maus
 
Hatte ich ja bereits (s.o.).

Das Problem bei mir war dabei, dass OnMouseMove schon arbeitet, bevor das Sprite überhaupt existiert und demzufolge das Programm abschmiert.

Irgendwie müßte in diesem Event dann was in der Art stehen:

WENN Menü ANGEZEIGT WIRD UND Sprite IST INITIALISIERT DANN
BEGINNE
- Wenn Mauszeiger zwischen YPOS>200 AND YPOS<=300 dann stelle Sprite an YPOS=200 dar
- Wenn Mauszeiger zwischen YPOS>300 AND YPOS<=400 dann stelle Sprite an YPOS=300 dar
- Wenn Mauszeiger zwischen YPOS>400 AND YPOS<=500 dann stelle Sprite an YPOS=400 dar
- Wenn Mauszeiger zwischen YPOS>500 AND YPOS<=600 dann stelle Sprite an YPOS=500 dar
ENDE

Für die jeweilige Spielsituation habe ich eine Variable "GameState", die beim Menü auf "gsMenu" steht.


EDIT:

Hat sich erledigt, ein

If Assigned(MenüSprite)

tut es :-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz