2 Tasten gleichzeitig!!!

[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;