Image.position ohne Anfangsgeruckel

[t.roller]

Panel1, darauf Image1, mit Code unten ruckelt nichts:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
    VK_UP:
      Panel1.Top:= Panel1.Top-5;
    VK_DOWN:
      Panel1.Top:= Panel1.Top+5;
    VK_LEFT:
      Panel1.Left:= Panel1.Left-5;
    VK_RIGHT:
      Panel1.Left:= Panel1.Left+5;
end;

[Der schöne Günther]

Es geht im Endeffekt um die "Repeat-Rate" der Tastatur. Also dass es erst einen Sprung macht, dann Pause, und dann schnell wiederholend, nicht um den Bildaufbau selber.

[t.roller]

Vielleicht ist die CPU einfach zu langsam - oder die GPU...

Meine Tastatur sendet 31 Zeichen/sec.
Mit FormKeyDown zähle ich max. 27.

Delphi-Quellcode:

function GetKeySpeed: Integer;
var
I: LongBool;
Value: Integer;
begin
I := SystemParametersInfo(SPI_GETKEYBOARDSPEED, 0, @Value, 0);
Result := Value;
end;

[stahli]

Gab es nicht so etwas wie GetKeyState?

Dann würde man in einer Schleife immer wieder prüfen, welche Tasten JETZT GERADE gedrückt sind und nicht Tastaturereignisse abarbeiten.

Das hat natürlich den Nachteil, dass es aufwendiger wäre und man alle Varianten berücksichtigen muss, um die Schleife auch wieder beenden zu können.