KeyDataを TShiftStateに変換する

KeyDownなどのメッセージは Shiftキーを押しているかどうかなどの情報を KeyDataに保持しています。これを Delphiで主に使用する TShiftStateに変換するには KeyDataToShiftState関数 を使います。
この関数は Formsユニットに定義されています。

■ KeyDataを TShiftStateに変換する例

procedure TFormX.WMKeyDown(var Message: TWMKeyDown); begin if Assigned(FKeyEvent) then begin FKeyEvent(Self, Message.CharCode, KeyDataToShiftState(Message.KeyData)); end; end;