Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > THotkey добавить свое

Автор: lucifloki 19.8.2013, 16:59

Как в компонент добавить поддержу одиночных клавиш Ctrl, Shift, Tab, BSpace, Alt, Esc, Space?

Автор: Poseidon 19.8.2013, 17:17

В какой компонент? Зачастую одиночные клавиши обрабатываются через OnKeyPress и тому подобное.

Автор: lucifloki 19.8.2013, 17:26

Hotkey, стандартный в Delphi 2009. Мне надо чтоб эти клавиши не сбрасывались, некоторые остаются только в сочетании с чем-то, а некоторые вообще нельзя ввести.

Автор: lucifloki 19.8.2013, 18:32

Получилось вот так, но как теперь сделать условие, что если Ctrl нажат с чем-то, то дать хоткею работать нормально. Иначе сочетание Ctrl с чем-то не работает.

Код


procedure TForm1.HotKey1Change(Sender: TObject);
var
  State : TKeyboardState;
begin
  GetKeyboardState(State);
  if ((State[VK_CONTROL] and 128) <> 0)  then
  HotKey1.HotKey := TextToShortCut('Ctrl');
end;

Автор: lucifloki 20.8.2013, 14:56

Всем спасибо, вопрос решен.... Все было очень просто.