Скачать: CL | DM;

Вопрос по HotKey   Найти похожие ветки 

← →
Alarm ©   (2007-02-16 09:50) [0]

Доброго времени суток.
В приложении используются "горячие клавиши" (HotKey). Собственно все нормально, однако у меня вопрос. Запускаю второй экземпляр приложения, набираю "горячие клавиши" и с некоторым удивлением наблюдаю, что их обрабатывает приложение запущенное первым, а активное (в данном случае второе) их не обрабатывает. Видимо это нормально, но мне не понятно. Можно ли сделать так, чтобы эти HotKey обрабатывало то приложение, с которым я в данный момент работаю?
Спасибо.

---

← →
Elen ©   (2007-02-16 09:53) [1]

> В приложении используются "горячие клавиши" (HotKey)

Как их создаеш? Через RegisterHotKey?

---

← →
Alarm ©   (2007-02-16 10:01) [2]

> Elen ©   (16.02.07 09:53) [1]
Как их создаеш? Через RegisterHotKey?

Нет,
юзаю
procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState);

---

← →
Elen ©   (2007-02-16 10:08) [3]

> Alarm ©   (16.02.07 10:01) [2]

Т.Е. хоткеи у тебя в менюхе прописаны?

---

← →
Alarm ©   (2007-02-16 10:44) [4]

HotKey(и) у меня на форме (из Package Win32).

HotKey1: THotKey;
HotKey2: THotKey;

private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;

...
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
 if Msg.HotKey = Hotkey_id1 then
   begin
     ...
   end;
 if Msg.HotKey = Hotkey_id2 then
  begin
   ...
  end;
end;

---

← →
Elen ©   (2007-02-16 11:01) [5]

> Alarm ©   (16.02.07 10:44) [4]

Извини за глупый вопрос, а как ты их (хоткеи) регистрируеш? Разве ThotKey это делает?

---

← →
Alarm ©   (2007-02-16 19:02) [6]

>Alarm ©   (16.02.07 10:01) [2]

> Elen ©   (16.02.07 09:53) [1]
Как их создаеш? Через RegisterHotKey?
Нет,
юзаю
procedure ShortCutToKey(ShortCut: TShortCut; var Key: Word; var Shift: TShiftState);

А здесь я нечаянно соврал:(

в TForm1.FormCreate(Sender: TObject);
у меня
RegisterHotKey(Handle, Hotkey_id1, Modifiers, hhKey1);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c