Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
ВнизКак узнать Сочетание нажатых клавиш ? Найти похожие ветки
← →
titnn (2003-06-04 08:42) [0]нужно отлавливать длинные сочетания , типа
Ctrl+Shift+Alt+R
причем даже если моя прога не активна ...
плз подскажите , если можно с примерчиком...
← →
Ajax (2003-06-04 08:59) [1]RegisterHotKey...
← →
dito (2003-06-06 13:09) [2]Делай это так:
private
{ Private declarations }
procedure WMHotKey(var msg:TWMHotKey);
message WM_HotKey;
procedure TForm1.WMHotKey(var msg: TWMHotKey);
begin
if msg.HotKey=1 then
begin
//Do smth
end;
if msg.HotKey=2 then
begin
//Do smth
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,1,MOD_Control,ord("1")); //CTRL+1
RegisterHotKey(Handle,2,MOD_Control,ord("2")); //CTRL+2
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,1);
UnregisterHotKey(Handle,2);
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.19;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.013 c