solange taste gedrücktt tue! ???

[flori-da]

Hi leute..

hab mal ne kleine frage:
wie kann ich das machen, dass solange eine taste (pfeiltasten) gedrückt wird etwas gemacht wird?
z.B. solange die Pfeiltaste nach links gedrückt wird soll eine figut (TImage ) nach links laufen.

habs schon mit keydown und ner while-do-schleife probiert nud das hat nicht geklapt.

bin gespannt auf euere Antworten.
schon mal danke!
grüße flo

[Klaus01]

Hallo,

Du könntest in dem OnKeyDown Ereignis der Form einen Thread starten und in dem OnKeyUp Ereignis
den Thread wieder stoppen.

Grüße
Klaus

[sirius]

Fürs erste setzt du die Bewegung in einen TTimer.
Wenn die Taste gedrückt wird (KeyDown) setzt du TTimer.enabled auf true. Wenn KEyUp kommt auf false

[flori-da]

das mit dem Timer hört sich gut an.
Doch wie kann ich dem Timer sagen , welche Taste ich drücke.
Also zum Beispiel: falls die linke Pfeiltaste gerade gedrückt wird dann tue das ... usw.
grüße der flo

[flori-da]

P.S. außerdem weiß ich nicht , was ein thread ist > deswegen fand ich die version mit dem timer besser

[inherited]

Oder du setzt das gesamte Spiel (ich nehme mal an so twas in der Arte ist es) gleich mit einem Main-Loop um (zB Timer), das ist eh besser. Dann kannst du regelmäßig mit GetAsyncKeyState die Tasten überprüfen
Diese könnte dann pseudocodemäßig so aussehen:

Delphi-Quellcode:

procedure CheckKeys;
begin
  if GetAsnycKeyState(vk_left)<0 then
    Player.MoveLeft;
  if GetAsyncKeyState(vk_right)<0 then
    Player.MoveRight
end;

procedure MainLoop;
begin
  CheckKeys;
  Render;
end;

[flori-da]

kann ich das nicht in meinen timer einbauen?
zum beispiel so, wenn der timer "startet", enabled also true ist, dann soll er nach den key fragen der gerade gedrückt ist und in eine entsprechende richtung laufen.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetAsnycKeyState(vk_left)<0 then
    Player.MoveLeft;
  if GetAsyncKeyState(vk_right)<0 then
    Player.MoveRight 
  ...
end;

[inherited]

dito

[flori-da]

ok :?
das scheint doch nicht zu klappen.
er sagt, dass GetAsnycKeyState ein undefinierter bezeichner ist.
kann das auch an meiner delphi version liegen ( Delphi 3)??

[Blackheart]

Zitat:

Zitat von flori-da

ok :?
das scheint doch nicht zu klappen.
er sagt, dass GetAsnycKeyState ein undefinierter bezeichner ist.
kann das auch an meiner delphi version liegen ( Delphi 3)??

GetAsyncKeyState