Текущий архив: 2004.03.28;
Скачать: CL | DM;
Вниз
Зарегистрировать Hotkey которую выбрал Найти похожие ветки
← →
Qwet (2004-01-06 21:37) [0]Подскажите пожалуйста как зарегистрировать ту комбинцию клавиш которая написана в компоненте Hotkey
← →
Qwet (2004-01-06 22:00) [1]Забыл сказать зарегистрировать чтобы доступно было везде.
id:=GlobalAddAtom("hotkey");
RegisterHotKey(handle,id,А чё тут,и тут написать);
если надо чтоб были клавиши которые выбраны и Hotkey
← →
Kair © (2004-01-07 11:52) [2]1) mod_Alt, mod_Control, mod_Win, 0;
2) vk_XXX, 0;
← →
Qwet (2004-01-08 18:28) [3]
> Kair © (07.01.04 11:52) [2]
> 1) mod_Alt, mod_Control, mod_Win, 0;
> 2) vk_XXX, 0;
Не понял так зарегистрирует именно что-то а надо чтоб зарегистрировал то что написано в Hotkey
Подскажите плиз очень надо.
Или если есть дайте ссылку
← →
savva © (2004-01-09 16:44) [4]
procedure Tmain.RegisterHotKeys;
var
TheKey: Word;
TheShiftState: TShiftState;
dwShiftState: DWORD;
begin
ShortCutToKey(TextToShortCut("Ctrl+Alt+M"), TheKey, TheShiftState);
dwShiftState:=0;
if ssCtrl in TheShiftState then
dwShiftState := dwShiftState or MOD_CONTROL;
if ssAlt in TheShiftState then
dwShiftState := dwShiftState or MOD_ALT ;
if ssShift in TheShiftState then
dwShiftState := dwShiftState or MOD_SHIFT;
RegisterHotKey(Handle,ID_A_C_M, dwShiftState, TheKey);
end;
данная процедура регистрирует горячее клавишу "Ctrl+Alt+M" (эту строку я храню в файле настроек, процесс вытягивания ее из файла покоцан:))
если у тебя есть непосредственное значение THotKey, тоTextToShortCut("Ctrl+Alt+M")можно убрать
← →
Qwet (2004-01-09 21:23) [5]Спасибо буду разбираться
← →
Qwet (2004-01-10 08:59) [6]
> ShortCutToKey
> TextToShortCut
Delphi говорит не знает такого
Подскажите плиз как сделать.
← →
savva © (2004-01-11 16:41) [7]добавить в uses модуль menus
Страницы: 1 вся ветка
Текущий архив: 2004.03.28;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.033 c
