OnKeyDown - Taste Halten verhindern

[olee]

Ha ich hab eine simple Lösung gefunden

Delphi-Quellcode:

procedure TLOZGameEngine.OnKeyDown(var Key: Word; Shift: TShiftState);
begin
  If LockKey = Key then exit;
  LockKey := Key;
  If (LastKey = Key) and (LastKeyDownTime + 500 > GetTickCount) then
  begin
    DblPressedKey := Key;
    exit;
  end;
  LastKeyDownTime := GetTickCount;
  LastKey         := Key;
end;

procedure TLOZGameEngine.OnKeyUp(var Key: Word; Shift: TShiftState);
begin
  LockKey := 0;
end;

Trotzdem DANKE für eure Hilfe

MFG