Последние записи
- Событие по изменению Edit.Text
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
17th
Июн
Установить горячие клавиши SHIFT и ALT
Posted by Chas under Delphi
unbanned
буквально недавно на форуме задавал такой же вопрос
в итоге нагуглил сам вот такое решение
...
public
procedure h_key(var Message: TMessage); message WM_HOTKEY;
{ Public declarations }
end;
...
procedure TForm2.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle, 0, VK_SHIFT, VK_MENU);//вот тут указываешь клавиши, например для shift + alt
end;
...
procedure TForm2.h_key(var Message: TMessage);
begin
//сам обработчик собственно
end;
...
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle, 0);
end;
