Cursor-Tasten läsen CTRL-Left aus

[Mathias]

Wen ich folgende Code laufen lasse, wird es rot, wen ich auf dem Cursor block [Left], [Up] und [Right] drücke.
Somit lösen diese 3 Tasten ein CTRL-Left aus.

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Shift = [] then begin
    Color := clGreen;
  end else begin
    Color := clRed;
  end;
end; 

Nun zur Frage, liegt dies an meiner billigen Tastatur oder spielt da Linux quer ?
An Lazarus liegt es definitiv nicht. Dieser Fehler tritt auch mit einem C-Programm mit SDL3 auf.

[icho2099]

Schau doch mal was in Shift steht,
ziemlich sicher nicht ssCtrl sondern ssNum.
Du prüfst ja auch nur auf leer []

[Mathias]

Ich habe es gestern Abend noch auf dem Laptop getestet, da kommt kein Ctrl. Die Cursortasten reagieren gar nicht mehr, wen man eine dritte Taste drückt.
Im Anhang noch ein kleines SDL1.2 Demo. SDL 1.2 ist bei Lazarus Standardmässig dabei.
Es ist nur LCtrl, welches Problem macht.
Echt blöd für einen Shooter, da vielfach LCtrl zum schiessen gebraucht wird.