Motorsteuerung über Pfeiltasten

[BerLin]

Hallo,

ich habe gedacht das Problem ist einfach zu händeln, aber ich stehe mal wieder auf dem Schlauch!
Ich will über die Pfeiltasten einen Motor steuern, links negative Drehrichtung, rechts positiv, hoch schneller, runter langsamer. Richtungstaste loslassen, stopp.
Ich habe zusätzlich die vier Pfeile als Buttons dargestellt für die Maussteuerung. Mit OnShortCut in der Form hatte ich die besten Ergebnisse, aber es gibt einen Aussetzer, sobald die Tastatur das Zeichen wiederholt.
Unter Turbo Pascal gab es keypressed, gibt es nach wie vor ich kann es nicht auswerten.
Zielplattformen Linux und Win32

Für Vorschläge bin ich wie immer sehr dankbar
BerLin

[theo]

Code: Alles auswählen

uses LCLType;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of  
    VK_LEFT:
  .....
end;

[BerLin]

Hallo Theo,

klappt wunderbar, es ist sogar möglich 2 Tasten gleichzeitig zu drücken.

Danke
BerLin