2 Tasten gleichzeitig!!!

[delphi-projekt]

Hallo,

ich möchte für ein Autorennspiel-Programm, dass 2 Tasten gleichzeitig gedrückt und erkannt werden können.
So zu sagen z.B. vk_up und vk_left.

Wie ich die Tastatur anspreche weiß ich ja. Aber 2 Tasten gleichzeitig? Das muss doch gehen, da man bei jedem Rennspiel
diese Funktion nutzt.

Kann mir jemand biiiittttte helfen? Ich komme wirklich mit dem was in den Foren steht nicht weiter. :wall:

[mr_emre_d]

GetAsyncKeyState

[delphi-projekt]

:( Ich verstehe das nicht.
Sorry

Kannst du mir helfen?

[taaktaak]

Hier wird es vielleicht deutlicher: Codelib

[himitsu]

oder notfalls in Form.OnKeyDown die Tasten merken und in Form.OnKeyUp wieder vergessen.

Delphi-Quellcode:

Var TasteA, TasteB: Boolean;

Procedure TForm1.FormKeyDown(Sender: TObject; Var Key: Word; Shift: TShiftState);
  Begin
    If Key = 'a' Then TasteA := True;
    If Key = 'b' Then TasteB := True;
  End;

Procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  Begin
    If Key = 'a' Then TasteA := False;
    If Key = 'b' Then TasteB := False;
  End;


...

If TasteA Then {was machen, wenn Taste A gedrückt ist}

[Blackheart]

Beispiel.

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if GetAsyncKeystate(VK_LEFT)  < 0 then Shape1.Left:=Shape1.Left-2;
  if GetAsyncKeystate(VK_UP)    < 0 then Shape1.Top:=Shape1.Top-2;
  if GetAsyncKeystate(VK_RIGHT) < 0 then Shape1.Left:=Shape1.Left+2;
  if GetAsyncKeystate(VK_DOWN)  < 0 then Shape1.Top:=Shape1.Top+2;
end;

[mr_emre_d]

Machs so

Delphi-Quellcode:

TForm1 = class..
  public
  ...
    Keys: Array[Byte] of Boolean;
    procedure RefreshKeys;
end;

--

procedure TForm1.RefreshKeys();
var
  i: Integer;
begin
  for i := 0 to $FF do
    Keys[i] := GetAsyncKeyState( i ) <> 0;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  RefreshKeys;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  RefreshKeys;
end;

[delphi-projekt]

Danke für die Zahlreichen Antworten,

hat mir sehr geholfen.

LG