Аналог HotKey

Вопросы программирования и использования среды Lazarus.

Модератор: Модераторы

Аналог HotKey

Сообщение son » 03.06.2014 10:28:57

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

Код: Выделить всё
procedure TfmOption.Edit1KeyDown(Sender: Tobject; var Key: Word; Shift: TShiftState);
begin
  TEdit(Sender).Text:=KeyAndShiftStateToKeyString(Key, Shift);
  Key:=0;
end;


В данном случае обрабатываю большинство клавиш. Но недавно пользователь пытался задать сочетание Ctrl+/ (на русской раскладке .). И тут облом. В Delphi распознает такое сочетание, а Lazarus нет. Можете подсказать выход из ситуации?
son
новенький
 
Сообщения: 39
Зарегистрирован: 22.11.2011 11:50:58

Re: Аналог HotKey

Сообщение alexs » 03.06.2014 12:42:13

а что в это время в параметре Shift передаётся?
Аватара пользователя
alexs
долгожитель
 
Сообщения: 4064
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь

Re: Аналог HotKey

Сообщение son » 03.06.2014 12:48:52

Key = 17
Shift = scCtrl
son
новенький
 
Сообщения: 39
Зарегистрирован: 22.11.2011 11:50:58

Re: Аналог HotKey

Сообщение alexs » 04.06.2014 09:20:32

А в чём тогда проблема? контрол ты увидел.
Аватара пользователя
alexs
долгожитель
 
Сообщения: 4064
Зарегистрирован: 15.05.2005 23:17:07
Откуда: г.Ставрополь

Re: Аналог HotKey

Сообщение son » 05.06.2014 19:57:03

контрол да, а точку нет
son
новенький
 
Сообщения: 39
Зарегистрирован: 22.11.2011 11:50:58


Вернуться в Lazarus

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 232

Рейтинг@Mail.ru