Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Вниз

Как, используя THotKey, зарегистрировать горячую клавишу?   Найти похожие ветки 

 
Volf_555 ©   (2006-04-26 14:51) [0]

Пробывал так:
procedure TForm1.Button3Click(Sender: TObject);
var
id:Integer;
begin
id:=GlobalAddAtom("hotkey");
RegisterHotKey(handle,id,hotkey1.Modifiers,hotkey1.HotKey);
end;

Вы скакивает ошибка:  [Error] Unit1.pas(76): Incompatible types: "Cardinal" and "THKModifiers"
Как корректно зарегистрировать горячую клавишу, используя компонент THotKey?


 
AbrosimovA ©   (2006-04-26 15:34) [1]

procedure TMainForm.mnWMHotkey( Var msg: TWMHotkey );
begin
if msg.hotkey = 100 then Show;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
RegisterHotkey(Handle,100,0,VK_F11);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
UnRegisterHotkey(Handle,100);
end;



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

Форум: "Основная";
Текущий архив: 2006.06.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.053 c
1-1146169429
delphi-oracle
2006-04-28 00:23
2006.06.04
Как поворачивать скролл


15-1147281259
x.pro
2006-05-10 21:14
2006.06.04
Срочно! Помогите пожалуйста!


4-1142252972
Lord HiTTER
2006-03-13 15:29
2006.06.04
Как добавить в контекстное меню?


5-1132651408
antoxa2005
2005-11-22 12:23
2006.06.04
Подскажите. Когда в базе мало записей и сетка DBGrid занимает час


2-1147849669
Creative
2006-05-17 11:07
2006.06.04
программа не входит в цикл





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский