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

[Diablero]

Добрый день! Пытаюсь реализовать стандартные действия на комбинации Ctrl-F и Ctrl-С в своём приложении, для чего поступаю следующим образом:

__fastcall TFormMain::TFormMain(TComponent* Owner)
        : TForm(Owner)
{
        
        RgHKCtrlF=RegisterHotKey(FormMain->Handle, 0x001, MOD_CONTROL, 'F');
        RgHKCtrlC=RegisterHotKey(FormMain->Handle, 0x002, MOD_CONTROL, 'C');
}
...
void __fastcall TFormMain::ApplicationEventsMessage(tagMSG &Msg,
      bool &Handled)
{
        if(RgHKCtrlF&&Msg.message==WM_HOTKEY&&Msg.wParam==0x001)              
                BtnFind->Click();
        if(RgHKCtrlC&&Msg.message==WM_HOTKEY&&Msg.wParam==0x002)            
                NCopy->Click(); 
}

Комбинации срабатывают, но перехватывают их у всех других приложений, открытых наряду с моим, даже если последнее и не в фокусе. Подскажите, пожалуйста, что я делаю не так и как правильно реализовать "локальное" поведение горячих клавиш.

[MotoArhangel]

Тоже самое, что и у тебя.

procedure TForm1.FormCreate(Sender: TObject);
// Ищем клавиши: 
      RegisterHotKey(Handle, 1, MOD_ALT, VK_TAB);
      RegisterHotKey(Handle, 2, MOD_ALT, vk_F4);
      RegisterHotKey(Handle, 3, 0, VK_SNAPSHOT);

Делаем что нужно)

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = 1 then
     ShowMessage('Ctrl + Tab ушел в гости ;)');
   if Msg.HotKey = 2 then
     ShowMessage('Alt+F4 еще спит');
   if Msg.HotKey = 3 then
     ShowMessage('Скрин шот получился корявым, поэтому не сохранен');
 end;

THotKey = class(TCustomHotKey) тебе в помощь и все будет как задумано.

[Diablero]

Не совсем понял - WMHotKey(var Msg: TWMHotKey) - это обработчик события формы или пользовательская процедура? Если последнее, то откуда брать параметр TWMHotKey?

[Пепел Феникса]

это обработчик сообщения

[MotoArhangel]

Вот Пример с возможностью присвоения нового значения.

[Diablero]

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

Вот Пример с возможностью присвоения нового значения.

А в каком файле нужный код? Вы уверены, что все файлы проекта поместили в архив?

[GunSmoker]

F1:

Defines a system-wide hot key.

[MotoArhangel]

Да уверен в Unit1.pas там почти пусто, но если открыть сам проект Project1.dpr, то увидите нужный компонент.

[Diablero]

А, понял, просто у меня не Delphi, а С++Builder стоит, а файлы проекта пытаюсь в блокноте открыть

[Diablero]

А чем логика кода

procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = 1 then
     ShowMessage('Ctrl + Tab ушел в гости ;)');
   if Msg.HotKey = 2 then
     ShowMessage('Alt+F4 еще спит');
   if Msg.HotKey = 3 then
     ShowMessage('Скрин шот получился корявым, поэтому не сохранен');
 end;

отличается от

void __fastcall TFormMain::ApplicationEventsMessage(tagMSG &Msg,
      bool &Handled)
{
        if(RgHKCtrlF&&Msg.message==WM_HOTKEY&&Msg.wParam==0x001)              
                BtnFind->Click();
        if(RgHKCtrlC&&Msg.message==WM_HOTKEY&&Msg.wParam==0x002)            
                NCopy->Click(); 
}

? И тут и там перехватывается сообщение приложения вроде...