Enviar combinaciones de teclas

[LordVermiis]

Saludos, he hecho una aplicacion de gestion de una base de datos, algo muy simple, pero me gustaría ahora,q ue en una de las cajas de texto, poder pulsar una combinacion de teclas, tal como Alt+Ctrl+G, por ejemplo. Esto como lo podria hacer?

[Neftali [Germán.Estévez]]

Puedes pulsar las teclas que quieras sobre la caja de texto.
Lo que tendrás que explicarnos es qué quieres hacer cuando la pulses...
¿Capturarla? ¿Pintarla? ¿Hacer algo con ella?

Intenta dedicar un poco más de tiempo a tus preguntas, con eso posiblemente conseguirás mejores respuestas.

[Yosuun]

Hola, en evento onkeydown del control puedes hacer algo asi,


procedure TWFichaAseguradoSUD.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Uppercase(chr(Key))='G') and (ssCtrl in shift) and (ssAlt in Shift) Then
Begin
{...}
End;
End;


Creo que seria algo asi espero que te sirva de ayuda.

Un Saludo.

[LordVermiis]

Saludos.

He probaod el codigo que me has mandado y funciona perfecto. Muchisimas gracias. No se me habria ocurrido, pense que sería algo muchisimo más complejo.

Perdona Neftali si te parecio poco adecuada mi pregunta o incompleta, la verdad es uqe queria saber como capturar que se pulse una combinacion de teclas de ese estilo para lanzar un procedimiento.

[Neftali [Germán.Estévez]]

Perdona Neftali si te parecio poco adecuada mi pregunta o incompleta...

No hay nada que perdonar, simplemente era un consejo; Personalmente no me quedó clara la pregunta, de ahí la petición. En cualquier caso ya que eres nuevo en los foros te recomiendo que leas la guía de estilo (http://www.clubdelphi.com/foros/guiaestilo.php).

Un saludo.