FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
TAction obtener Key yShift presionado
Hay alguna manera de saber en el evento execute de un TAction que teclas fueron las que se presionaron ? de manera que pueda extraer un valor Key y un valor Shift para redireccionarlo a un evento KeyDown
Me gustaria fuera algo asi, obiamente ac no tiene esas propiedades procedure TMiClase.ActionExecute(Sender: TObject); var ac:TAction; begin ac := nil; if Sender is TAction then ac := TAction(Sender); if Assigned(ac) then begin FormKeyDown(ac, ac.Key, ac.Shift); end; end; O tratar de decodificar la propiedad Shortcut del TAction mKey := LeeKey( ac.Shortcut ); mShift := LeeShift( ac.Shortcut ); FormKeyDown(ac, mKey, mShift); saludos |
#2
|
|||
|
|||
Ups debo buscar mas, jejeje asi de facil
rutina ShortCutToKey |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TACtion con icono Top | Neeruu | Varios | 5 | 02-09-2008 02:15:00 |
Boton Presionado | mjjj | Varios | 2 | 11-10-2007 22:27:51 |
saber el boton presionado | fartycl | Varios | 2 | 26-06-2006 06:04:16 |
Ayuda Masters... [Presionado de Teclas] | UltraMan | Varios | 2 | 21-05-2006 15:57:48 |
Botón Presionado | scooterjgm | OOP | 0 | 03-01-2005 16:20:25 |
|