Проблема с горячими клавишами

[Marsik]

Здравствуйте. Мне нужно задать две горячие клавиши. Тоесть чтобы при нажатии одной комбинации клавиш выполнялось тото действие, при нажатии второй комбинации другое действие. Задаю горячие клавиши таким образом:

var 
 kl,kl1,fkl1, fkl: cardinal;
keyid,keyid1: integer;
kl1:= MOD_CONTROL;
    case ComboBox3.ItemIndex of
    0:
            fkl1 := VK_F12;
    1:
      fkl1 := VK_F11;
      2:
      fkl1 := VK_F10;
      3:
      fkl1 := VK_F9;
  end;
  keyid1 := GlobalAddAtom('XPLOIT1');
  RegisterHotKey(Handle, keyid1, kl1, fkl1);
//и вторая комбинация
  kl := 0;
  case ComboBox2.ItemIndex of
    0:
            fkl := VK_F12;
    1:
      fkl := VK_F11;
      2:
      fkl := VK_F10;
      3:
      fkl := VK_F9;
  end;
  keyid := GlobalAddAtom('XPLOIT');
  RegisterHotKey(Handle, keyid, kl, fkl);

В принципе обе комбинации должны работать, однако все обстоит иначе. В вин7 работают обе комбинации, когда же тестирую на ХП работает только вторая горячая клавиша. Вроде обе комбинации создаются одинаково, но почему же тогда не работает вторая?

[zmey31313]

Используйте лучше MainMenu или PopupMenu.

[Kotofff]

Я всегда (ну или почти всегда) делаю так:
1) кидаю на форму ActionManager
2) двойной клик по нему, потом жмем New Action
3) в свойстве ShortCut указываем нужную комбинацию или выбираем из выпадающего списка ....

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

[raxp]

эм... тут ведь речь идет о глобальных комбинациях... покажите-ка ваш код отлавливающий их, пощупаем под xp/

[Kotofff]

Прости не понял ...

покажите-ка ваш код отлавливающий их, пощупаем под xp

... это ко мне обращение ?

Боюсь показаться недотёпой (предыдущая ночь без сна просто) ...
Для глобальных горячих клавишь всегда использую компоненты HotKeyManager - доволен на все 100.
Безупречно работают даже в моей ERS2010.

[raxp]

...к TC обращаюсь, к TC

[Demien]

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

1) кидаю на форму ActionManager

Как я понимаю данный компонент необходимо устанавливать дополнительно? В палитре не нашел... Может не там искал...
Можно по этому компоненту поподробней?

[Stilet]

Demien

D2009 вкладка Additional
На остальных версиях тоже там же должно быть

[Kotofff]

Прошу прощения, что не уточнил. В моей ERS2010 этот компонент расположен на вкладке Additional.
В Delphi 6-7 он называется ActionList и расположен на вкладке Standart (хотя могу и ошибаться )

[Stilet]

В Delphi 6-7 он называется ActionList и расположен на вкладке Standart

Дружище, в Делфи6 он называется ActionManager, и расположен все на той же Additional.