Controlar el teclado desde una aplicación delphi
 

Buenas tardes compañeros no se si esto sea posible les platico estoy intentando controlar las teclas de adelante, atras, abajo y arriba para avanzar la grafica en un tdbchart esto lo quiero hacer con los eventos de los componentes pero no logro capturar las pulsaciones de las teclas cualquier comentario gracias.

Hola,

Si no puedes usar los eventos "OnKeyDown", "OnKeyUp" del componente en cuestión... es posible que sí puedas usar los de algún contenedor, como pueda ser el propio formulario. ¿No? Por cierto, asegúrate de que la propiedad "KeyPreview" del formulario en cuestión tenga un valor "True". ;)

gracias dec por responder utilizo este codigo para versi reacciona los eventos con las teclas pero no hace nada:confused:

Código Delphi [-]
procedure TFrm_GraRes.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=char(37) then
  begin
     showmessage('37');
  end;

  if key=char(38) then
  begin
           showmessage('38');
  end;

  if key=char(39) then
  begin
          showmessage('39');
  end;

  if key=char(40) then
  begin
      showmessage('40');
  end;
end;

seguro que la propiedad keypreview del formulario esta en true?

otra cosa no hace falta char(80) basta con #80

Prueba utilizando las teclas virtuales en el evento "OnkeyDown' como te menciona Dec;

If Key = VK_LEFT then showmessage('Flecha izquierda');;
If Key = VK_UP then showmessage('Flecha arriba');
If Key = VK_RIGHT then showmessage('Flecha derecha');
If Key = VK_DOWN then showmessage('Flecha abajo');

Salu2

a buenisima cascarrabias y dec ahora si funciona abra un evento el cual reaccione un numero indefinido de veces mientras lo mantenga pulsado?

:) ya lo probe y funciona perfecto teniendo apretado el boton, pero ahi algo que no me gusta que si me posiciono en un dblokupcombobox reacciona las flechas y se mueve tambien no abra forma de ponerle un filtro y que solo reaccion tdbchart mil gracias me ayudaron bastante

pregunta quien es el control activo:

Código Delphi [-]
if activecontrol is TdbChart then
   //muevo las teclas

pero esto solo funciona si el tdbchart toma el foco...

:) gracias eduarcol deja checo si funciona mil gracias a todos