Mehrere Objekte aufeinmal, mit versch. Tastenkombinationen

Lernenochdazu · Beiträge: 23

Guten Tag,

Ich habe eingestellt, dass ich mit w und s, sowie up und down ein shape bewegen kann. Allerdings kann ich beide shapes, wenn ich z.B w und down drücke, nicht zusammen bewegen. Nur abwechselnd. Welche Möglichkeiten habe ich, damit beides gleichzeitig geht?

LG

Moderiert von Th69: Titel leicht geändert (war "Mehrere Objekte aufeinmal, mit verschiedenen Tastenkombinati").
Moderiert von Narses: Topic aus Sonstiges (Delphi) verschoben am Di 12.07.2022 um 07:46

jaenicke · Verfasst: Mo 11.07.22 08:00

An der Stelle, an der du das eine Shape bewegst, kannst du doch auch das andere mit bewegen.

Ohne zu wissen wie du das machst, kann ich aber nichts Genaueres dazu sagen.

Lernenochdazu · Beiträge: 23

jaenicke hat folgendes geschrieben :

An der Stelle, an der du das eine Shape bewegst, kannst du doch auch das andere mit bewegen.

Ohne zu wissen wie du das machst, kann ich aber nichts Genaueres dazu sagen.

Das andere Shape soll aber mit anderen Tastenkombinationen bewegt werden. Nicht mit den gleichen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

     
     if (key = Ord('W')) and (beispiel1.Top > irgendwasanderes.height) then
     beispiel1.Top := beispiel1.Top - 10;
     if (key = ord('S')) and (beispiel1.Top + beispiel1.Width < ClientHeight - 30) then
     beispiel1.Top := beispiel1.Top + 10;
   
     if (key = vk_up) and (beispiel2.Top > irgendwasanderes.height) then
     beispiel2.Top := beispiel2.Top - 10;
     if (key = vk_down) and (beispiel2.Top + beispiel2.Width < ClientHeight - 30) then
     beispiel2.Top := beispiel2.Top + 10;

Th69 · Verfasst: Mo 11.07.22 09:10

Das ist mit den KeyDown/Char/Up-Methoden nicht möglich, da immer nur ein Zeichen (die zuletzt gedrückte Taste) weitergeleitet wird (kannst du auch in jeder TextBox, hier im Forum oder mit Notepad u.a., nachvollziehen).
Die WinAPI bietet aber die Funktion GetAsyncKeyState an, um den aktuellen Tastenstatus (Up oder Down) jeder einzelnen Taste zu ermitteln. Dazu solltest du dann stattdessen einen Timer verwenden, der die Tasten regelmäßig abfragt.
Zum Abfragen auf "down"-Status muß dazu dann das letzte Bit abgefragt werden:

markieren

Delphi-Quelltext

1:	if (GetAsyncKeyState(key) AND $8000) <> 0 then

Edited: & -> AND

jaenicke · Verfasst: Mo 11.07.22 11:17

Lernenochdazu hat folgendes geschrieben :

Allerdings kann ich beide shapes, wenn ich z.B w und down drücke, nicht zusammen bewegen. Nur abwechselnd. Welche Möglichkeiten habe ich, damit beides gleichzeitig geht?

[..]

Das andere Shape soll aber mit anderen Tastenkombinationen bewegt werden. Nicht mit den gleichen.

Moment, was denn nun? Zusammen bewegen oder einzeln je nach gedrückter Taste? Kannst du bitte noch einmal schreiben, wie du das meinst?

Du kannst z.B. im Parameter Shift abfragen, ob Strg, Shift, usw. gedrückt sind, wenn du z.B. mit Strg + W das andere Shape bewegen möchtest. Wenn es ganz andere Tasten sein sollen, brauchst du ja nur auf diese zu prüfen.

Aber aktuell ist mir nicht ganz klar, was du genau machen möchtest.

Gausi · Verfasst: Mo 11.07.22 11:28

jaenicke hat folgendes geschrieben :

Aber aktuell ist mir nicht ganz klar, was du genau machen möchtest.

Ich tippe auf etwas wie einen Pong-Klon für zwei Spieler. Der erste Spieler nutzt WASD zur Steuerung, der zweite die Pfeiltasten. Dabei sollen beide Spieler gleichzeitig steuern können.

Ich würde da auch mit GetAsyncKeyState ansetzen, wie user profile icon

Th69 beschrieben hat.

_________________
We are, we were and will not be.

Lernenochdazu · Beiträge: 23

Gausi hat folgendes geschrieben :

jaenicke hat folgendes geschrieben :

Aber aktuell ist mir nicht ganz klar, was du genau machen möchtest.

Ich tippe auf etwas wie einen Pong-Klon für zwei Spieler. Der erste Spieler nutzt WASD zur Steuerung, der zweite die Pfeiltasten. Dabei sollen beide Spieler gleichzeitig steuern können.

Ich würde da auch mit GetAsyncKeyState ansetzen, wie user profile icon

Th69 beschrieben hat.

Richtig 🔔

Th69 Ich hab das ganze mal ausprobiert, ich kann nun auch beide Tasten zusammen bewegen! Danke dafür schonmal. Allerdings brauch es sehr lange bis die beiden Shapes ihre Position updaten, was kann ich dagegen tun? Und wofür steht das & $8000? Wird bei mir nicht gefunden.

Bisherige Lösung, in einem Timer:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

     if ((GetAsyncKeyState(vk_up) <> 0) and (beispiel.Top > beispiel.height)) then
        beispiel.Top := beispiel.Top - 10;
     if ((GetAsyncKeyState(vk_down) <> 0) and (beispiel.Top + beispiel.Width < ClientHeight)) then
        beispiel.Top := beispiel.Top + 10;

     if ((GetAsyncKeyState(Ord('W')) <>0) and (beispiel.Top > beispiel.height)) then
        beispiel.Top := beispiel.Top - 10;
     if ((GetAsyncKeyState(Ord('S')) <> 0) and (beispiel.Top + beispiel.Width < ClientHeight)) then
        beispiel.Top := beispiel.Top + 10;

Gausi · Verfasst: Di 12.07.22 08:49

Lernenochdazu hat folgendes geschrieben :

Allerdings brauch es sehr lange bis die beiden Shapes ihre Position updaten, was kann ich dagegen tun? Und wofür steht das & $8000? Wird bei mir nicht gefunden.

Probier mal

markieren

Delphi-Quelltext

1:	if (GetAsyncKeyState(key) AND $8000) <> 0 then

Dabei wird ein bestimmtes Bit des Rückgabewertes von GetAsyncKeyState überprüft. Der binäre UND-Operator ist in Delphi AND, nicht &

Wie lange dauert es denn, bis sich die Shapes updaten? Hast du das Timer-Intervall vom Standard 1000ms auf einen kleineren Wert gesetzt? 25-50ms würde ich hier ansetzen - zu kleine Intervalle bringen nämlich auch nichts.

_________________
We are, we were and will not be.

Th69 · Verfasst: Di 12.07.22 08:57

Genau, ich hatte mich mit C++ bzw. C# vertan.

Zum Neuzeichnen der Shapes (nach der Positionsveränderung) Invalidate oder Refresh aufrufen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme