[gelöst] Cursortasten von Buttons fernhalten

[Redeemer]

Das ist das falsche Event. Dein Code gehört nicht in TForm.OnKeyUp sondern nach TApplicationEvents.OnShortCut (oder von mir aus TApplication.OnShortCut ). Da dann einfach noch nach dem Änderung Handled := True setzen und dann ist an der Stelle Schluss mit der Verarbeitung der Taste.
Eine kleine Umstellung deiner Methode ist allerdings nötig, um deine Taste aus dem TWMKey -Typ zu kriegen:
- Der Parameter Key heißt jetzt Msg.CharCode . Auch hier gehen die virtuellen Key-Codes, die du verwendest.
- Für den TShiftState (wenn du ihn brauchst) gibt es Forms.KeyDataToShiftState(Msg.KeyData) .