Ver Mensaje Individual
  #2  
Antiguo 07-09-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hay dos maneras dependiendo de lo que desees hacer.

Si deseas que la acción se ejecute cuando oprimes Alt-R en algún control en específico, por ejemplo un TEdit, puedes detectar la combinación en el evento OnKeyDown del control:

Código Delphi [-]
if (Key = Ord('R')) and (ssAlt in Shift) then
  HazAlgo;

Si quieres que la acción se ejecute como algo general sin importar en qué control estás situado te conviene usar un TActionList (de la paleta "Standard"). Le agregas una acción, asignas la combinación a su propiedad ShortCut y en el evento OnExecute de la acción colocas el código a ejecutar.

// Saludos
Responder Con Cita