Autor Beitrag
Tom!
Hält's aus hier
Beiträge: 1



BeitragVerfasst: Fr 16.05.03 20:41 
Ja hallo erstmal...

ich programmiere gerade zur Aufbesserung meiner Infomatik-Schulnote ein Flugspiel, ähnlich wie der DOS-Klassiker "Raptor".

Dazu verwende ich ein Image, das sich durch Tastendruck verschieben lässt.
Ich habe dies mit der OnKeyDown-Prozedur realisiert.
Allerdings funktioniert diese Methode nicht, sobald mehr als ein Key gleichzeitig gedrückt wird; bei OnKeyDown kommt immer nur ein Key durch; d.h. ich kann nicht lenken und gleichzeitig schiessen.

Welche Möglichkeiten gibt's da?


P.S.: Ein Freund hat mir geraten, es mit einem unsichtbaren Menu zu versuchen, das mit Shortcuts angesprochen wird. Die Menupunkte wären dann die Bewegungsprozeduren. Davon bin ich allerdings weniger begeistert...

Danke im Voraus,
Tom!

_________________
Wahres Können braucht keine Anstrengung.
GruppeCN
ontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic starofftopic star
Beiträge: 322



BeitragVerfasst: Sa 17.05.03 15:25 
Versuch's mit OnKeyPress...

_________________
Warum sind die Sachen, die du suchst, immer da, wo du zuletzt nachsiehst?
Weil du aufhörst zu suchen, wenn du sie gefunden hast.
mimi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 3458

Ubuntu, Win XP
Lazarus
BeitragVerfasst: Sa 17.05.03 22:32 
das wird das gleiche sein. speicher die gdrückten Tasten einfach in einem array

ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
var
  keys:array[0..255]:bool;

onKeyDown:
  keys[key]:=True;

onKeyUp:
  keys[key]:=False;

_________________
MFG
Michael Springwald, "kann kein englisch...."
Kostja
Hält's aus hier
Beiträge: 11



BeitragVerfasst: Sa 17.05.03 23:18 
Titel: GetAsyncKeyState
Ich würde das über die Methode GetAsyncKeyState machen!
Man könnte die z.B. in die Prozedur KeyDown packen:

procedure Form1.KeyDown(...);
begin
If GetAsyncKeyState(VK_SPACE) < 0 Then Feuern;
end;
mimi
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 3458

Ubuntu, Win XP
Lazarus
BeitragVerfasst: Sa 17.05.03 23:19 
und was bringt das ?

_________________
MFG
Michael Springwald, "kann kein englisch...."
Kostja
Hält's aus hier
Beiträge: 11



BeitragVerfasst: So 18.05.03 10:32 
Reaktion auf mehrere Tasten gleichzeitig!