procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116) and (HiWord(GetKeyState(VK_CONTROL)) = 1) then
begin
......
end
end;
【參考連結】
- Захватить клавишу SHIFT во время выбора пункта меню? – Советы Делфи – ЗАО Дельфи (Крутые советы Delphi)
- GetKeyState:GetKeyState ，Эта функция извлекает указанный виртуальный ключ -Энциклопедия знаний китайской сети
- ДЕЛФИ ОнКейДаун,OnKeyPress,Разница OnKeyUp-CSDN Blog_delphi onkeydown
- таблица значений ключей delphi – Тайваньское племя
- Как определить нажатие клавиши ctrl-t в Delphi – Переполнение стека
- Таблица сравнения значений кодов клавиш клавиатуры
