Аналог HotKey

[son]

Здравствуйте. Нужен аналог HotKey. Из других постов взял такую конструкцию:

Код: Выделить всё

procedure TfmOption.Edit1KeyDown(Sender: Tobject; var Key: Word; Shift: TShiftState);
begin
  TEdit(Sender).Text:=KeyAndShiftStateToKeyString(Key, Shift);
  Key:=0;
end;

В данном случае обрабатываю большинство клавиш. Но недавно пользователь пытался задать сочетание Ctrl+/ (на русской раскладке .). И тут облом. В Delphi распознает такое сочетание, а Lazarus нет. Можете подсказать выход из ситуации?

[alexs]

а что в это время в параметре Shift передаётся?

[son]

Key = 17
Shift = scCtrl

[alexs]

А в чём тогда проблема? контрол ты увидел.

[son]

контрол да, а точку нет