Bei OnKeyDown kein Key:word ohne ShiftState (FMX)

[t2000]

Hallo zusammen,

ich habe unter Firemonkey in meiner Form die IsDialogKey Procedure überschrieben.

Delphi-Quellcode:

procedure IsDialogKey(const Key: Word; const KeyChar: WideChar; const Shift: TShiftState;var IsDialog: boolean); override;

Warum wird in der Unit FMX.Platform.Win beim Abfangen der KeyDown-Message der Code für Key gelöscht, wenn nicht Alt, Strg, Command gedrückt wurde?

In der WndProc bei WM_KEYDOWN wird

Code:

CurrentChar(Msg, Key, Ch, Shift);

aufgerufen. Und darin steht:

Delphi-Quellcode:

if (([ssAlt, ssCtrl, ssCommand] * Shift) = []) then
        Key := 0;

Der Char-Code wird normal geliefert, aber leider nicht der Key-Code. Ich möchte gerne den Nummernblock mit gewissen Funktionen ausstatten.

Gibt es einen Grund dafür?

Danke
VG Thomas