Delphi - convinacion de teclas

 
Vista:

convinacion de teclas

Publicado por joselito (177 intervenciones) el 13/01/2005 10:03:50
Hola, amigos;
Bueno, pues mi problema es el siguiente: tenemos una serie de teclas asignadas en el formulario (desde la F1 a la F12), y al pulsar cada una, se realiza una determinada accion.
ahora se han propuesto cambiar las mismas, pero poniendo el ALT delante, esto es: Alt + F1, Alt-F2, Alt-X, .... lo que sea, y que realicen la misma acción.
¿Cómo se puede hacer esto, el asociar un conjunto de teclas en un formulario determinado?... ya que cada Formulario tiene su propia convinación de teclas...
Muchas gracias.
Un saludo.
JOSE.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:convinacion de teclas

Publicado por Elena (330 intervenciones) el 13/01/2005 13:26:57
En el OnKeyDown de tu objeto tienes que evaluar que la tecla Alt esté siendo presionada, eso lo consigue con la variable Shift...

if (ssAlt in Shift) and (key = Vk_F2) then
Tu Codigo Aqui

Aquí te pongo los códigos para cada tecla:
ssShift Una de las teclas de mayúscula.
ssAlt La tecla <ALT>.
ssCtrl La tecla <Control>.
ssRight El botón derecho del ratón.
ssLeft El botón izquierdo del ratón.
ssMiddle El botón central del ratón.
ssDouble Los botones izquierdo y derecho del ratón.

Espero que te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar