"Локальные" горячие клавиши

[MotoArhangel]

Вот теперь скажи яснее что тебе от горячих клавиш надо?

[Diablero]

В общем, кое-как решил проблему следующим образом:

void __fastcall TFormMain::ApplicationEventsActivate(TObject *Sender)
{
        RHKCtrlF=RegisterHotKey(FormMain->Handle, 0x001, MOD_CONTROL, 'F');
        RHKCtrlC=RegisterHotKey(FormMain->Handle, 0x002, MOD_CONTROL, 'C');
}

void __fastcall TFormMain::ApplicationEventsDeactivate(TObject *Sender)
{
        if(RHKCtrlF) RHKCtrlF=!UnregisterHotKey(FormMain->Handle, 0x001);
        if(RHKCtrlC) RHKCtrlC=!UnregisterHotKey(FormMain->Handle, 0x002);
}

То есть каждый раз, когда приложение получает фокус, я регистрирую комбинации, а каждый раз, когда оно фокус ввода теряет, регистрацию сбрасывает. Но этот подход очень смахивает на костыль. Уверен, что всё здесь организуется гораздо проще.

[Diablero]

Сообщение от MotoArhangel

Вот теперь скажи яснее что тебе от горячих клавиш надо?

Мне нужно, чтобы моё приложение перехватывало комбинации клавиш только когда находится в фокусе, а не "воровало" их у других активных в данный момент приложений. Ну например, если моё творение запущено, Ctrl-F в блокноте уже не работает

[GunSmoker]

Ну и зачем ты регистрируешь глобальный обработчик?

Application.OnMessage - и лови свой Ctrl + F.

[Diablero]

А ларчик просто открывался
Суть в том, что собственно горячие клавиши (HotKeys) приложения так и должны работать - перехватывать комбинации клавиш даже если форма приложения неактивна. Реализовать же комбинации клавиш внутри активной формы достаточно просто - нужно лишь для события OnKeyDown обработать нажатие буквенно-цифровой клавиши, передаваемое через параметр Key с модификатором, передаваемым через параметр Shift. Свойство формы KeyPreview нужно выставить в true.

void __fastcall TFormMain::FormKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if(Shift.Contains(ssCtrl)&&Key=='F') BtnFind->Click();
}