HotKey

← →
dim- © (2002-06-03 22:36) [0]

Данный вопрос встречался здесь уже не раз, но задам его еще раз
как назначить горячуют клавишу для программы.
Делаю как написано в этом форуме http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988621065&n=16
но программа вобще не реагирует.

← →
dim- © (2002-06-04 09:03) [1]

Народ кто чего может посоветовать?

← →
Song © (2002-06-04 09:06) [2]

Всё должно работать. Напишите как Вы делаете.

← →
QWest (2002-06-04 09:16) [3]

//Компонент предназначен, чтобы эмулировать нажатия клавиш в сисеме. В качестве параметра берет переменную типа Integer, но можно использовать и именнованные константы типа VK_SNAPSHOT (тогда произойдет нажатие PrintScreen"a// - не подойдет ??

← →
dim- © (2002-06-04 09:48) [4]

....
procedure hotykey(var msg:TMessage); message WM_HOTKEY;
private
.....
var id:Integer;

procedure TForm1.hotykey(var msg:TMessage);
begin
if (msg.LParamHi=vk_Insert) then
begin ShowMessage("kjhdfbvcdjkfv!");
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
id:=GlobalAddAtom("hotkey");
RegisterHotKey(Handle,id,0,vk_Insert);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle,id);
end;

← →
Song © (2002-06-04 10:01) [5]

Довольно странно... Возможно Вы нажимаете эту клавишу находясь в приложении где она уже зарегистрирована.

Да попробуй сначала назначить другую или в сочетании
У меня вот vkTAB+WIN+CTRL рабоает не надо баловаться

Да попробуй сначала назначить другую или в сочетании
У меня вот vkTAB+WIN+CTRL работает не надо баловаться

интересно что в Д5 все работает, а в Д6 нет

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