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 |
Ups debo buscar mas, jejeje asi de facil
rutina ShortCutToKey |
La franja horaria es GMT +2. Ahora son las 22:56:30. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi