Se deduce que usas la forma de Marcos:
Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCtrl in Shift) and (uppercase(key) = 'G') then
ShowMessage('Pulsó Ctrl + G');
end;
Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|