Einzelnen Beitrag anzeigen

Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
767 Beiträge
 
Delphi 2009 Professional
 
#3

AW: Cursortasten von Buttons fernhalten

  Alt 19. Sep 2017, 23:47
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) .
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat