Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.31;
Скачать: CL | DM;

Вниз

Как мне словить надатие комбинации клавиш?   Найти похожие ветки 

 
Antosya   (2003-01-27 14:48) [0]

Вот, моя прога вист в трэи, как мне словить комбинацию клавиш(Ctrl+Alt+F12) например, покаите на примере, очень надо! Ведь моя прога не активна, и клавиши нажымаются в винде?! Как сделать такой хук, т.е как узнать когда они нажаты?


 
Song   (2003-01-27 21:13) [1]

RegisterHotKey()


 
Antosya   (2003-01-27 21:40) [2]

А поподробнее?! Не дадите ли пример?


 
Song   (2003-01-27 22:19) [3]

Пример в FAQ


 
Antosya   (2003-01-29 21:45) [4]

Что, трудно пример дать?


 
gsu   (2003-01-29 22:00) [5]

А что трудно найти ?


 
gsu   (2003-01-29 22:01) [6]

,


 
Spawn   (2003-01-29 22:16) [7]

Пажалста)
HotKey:=GlobalAddAtom("MyHotKey");
RegisterHotKey(Handle,HotKey,MOD_CONRTOL or MOD_ALT,VK_F12);


 
Spawn   (2003-01-29 22:18) [8]

И еще обрабатываеш при этом WM_HOTKEY


 
gsu   (2003-01-29 23:02) [9]

private
procedure WMHOTKEY(var Msg: TWMHotKey); message WM_HOTKEY;
public

procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, MOD_CONTROL or MOD_ALT, VK_F12);
end;

procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);
begin
Caption:="Уря"
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(Handle, 0);
end;

Пойдет ?


 
Antosya   (2003-01-31 16:14) [10]

ЩА ПОПРОБУЮ!



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

Текущий архив: 2003.03.31;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
7-100478
Yrtimd
2003-02-02 18:26
2003.03.31
Своя панель задач - это возможно?


3-100143
pa\/el
2003-03-12 10:17
2003.03.31
Экзотическая БД


14-100449
Delirium^.Tremens
2003-03-14 17:51
2003.03.31
Самовар не работает


1-100267
groza
2003-03-18 23:06
2003.03.31
QuickRepoter


1-100316
MiXen
2003-03-19 19:51
2003.03.31
изменение атрибутов файла





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский