Thema: Delphi Jump"n"run

Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Jump"n"run

  Alt 30. Jan 2006, 21:18
da würde ich dir jetzt fast dazu raten, alle x millisekunden den tastaturstatus mit Hier im Forum suchengetasynckeystate abzufragen und dann eben, wenn mehrere tasten gedrückt sind, auch die entsprechenden aktionen auslösen.

Natürlich kannst du auch im OnKeyDown Variablen setzen und im OnkeyUP wieder entsetzen

Delphi-Quellcode:
//global:
type TKeys = (left,right,up,down); //das hier ist ein aufzählungstyp

var keysdown = set of TKeys; //das hier ist eine Menge

procedure TForm1.OnkeyDown(Sender: TObject, var Key: Integer);
begin
case Key of
  vk_left: keysdown = keysdown + left; // hier fügst du der menge eine wert hinzu
  //etc.
end;
// dasselbe für onkeyup, nur dann mit -
Das ganze musst du dann natürlich im Timer-Event auswerten.

EDIT: ach ja übrigens, ich hab jetzt glaub ich schon 6 threads von dir gesehen, und in zwei geantwortet... meinst du nicht, das reicht jetzt dann mal wieder ? im übrigen kann ich dir empfehlen, da du in Delphi neu scheinst, die mal die Tutorial auf www.dsdt.info durchzulesen und eventuell, wenn es dir ernster ist, dir ein Buch zu kaufen oder erstmal in einer Bücherei auszuleihen (solls ja auch geben).
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat