procedure TfmQAB.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin
if (Msg.CharCode = 116) and (HiWord(GetKeyState(VK_CONTROL)) = 1) then
begin
......
end
end;
【參考連結】
- Atrapa la tecla SHIFT durante la selección de elementos del menú? – Consejos de Delfos – CJC Delfos (Consejos geniales de Delphi)
- ObtenerEstadoClave:ObtenerEstadoClave ，Esta función recupera la clave virtual especificada -Enciclopedia Conocimiento Red China
- DELPHI OnKeyDown,PresionarTecla,Diferencia OnKeyUp-CSDN Blog_delphi onkeydown
- tabla de valores clave delphi – tribu de taiwán
- Cómo detectar la pulsación de tecla ctrl-t en Delphi – Desbordamiento de pila
- Tabla de comparación de valores de códigos de teclas del teclado
