Pulsar dos teclas a la vez - Delphi

[[seoane]]

Seguro que hay algún método mejor de hacerlo, pero por que no comprobar que teclas están pulsadas. Podemos comprobarlo en el evento OnKeyDown, por ejemplo, o con algún Timer.

Código Delphi [-]
var
  izquierda, derecha, arriba, abajo: boolean;
begin
  izquierda:= (GetKeyState(VK_LEFT) and $80) > 0;
  derecha:= (GetKeyState(VK_RIGHT) and $80) > 0;
  arriba:= (GetKeyState(VK_UP) and $80) > 0;
  abajo:= (GetKeyState(VK_DOWN) and $80) > 0;
  // Aqui haz lo que quieras con las variables
end;

Aquí un ejemplo muy simple de una pelota moviéndose por el formulario

[[seoane]]

Parece que dec se me ha adelantado mientras estaba respondiendo

[dec]

Hola,

Empezado por Seoane

Parece que dec se me ha adelantado mientras estaba respondiendo

No; no es que lo parezca, es que me adelanté. Pero, vamos, que no está mal.

[Ñuño Martínez]

Si quieres programar juegos no utilices la API de Delphi ni de Windows. Ten en cuenta que esta fue diseñada para hacer aplicaciones, no juegos.

Te recomiendo que busques y utilices librerías especializadas en juegos de ordenador, saldrás ganando porque te será más fácil hacer juegos y (la mayor ventaja en mi opinión) podrán ser portados a otros sistemas (incluso consolas) más fácilmente (si te transformas en un profesional del videojuego te será más fácil).

Te recomiendo SDL ya que tiene un conjunto de funciones robusto y utiliza OpenGL (la librería gráfica por excelencia), aunque personalmente no me gusta su sistema de "respuesta a eventos". Además existe un paquete para Delphi.

Te aviso de que es "muy profesional" así que si no tienes idea sobre "teoría de juegos" y "sistemas interactivos" te tropezarás constantemente. Si lo ves muy complicado echa un vistazo a Mingro. Es un proyecto en el que estoy trabajando con el que pretendo crear una librería para juegos simple dirigida a principiantes y aficionados. Es mucho más simple que SDL y funciona nativamente con Delphi. Así, de paso, puedes ayudarme a mejorarla con tus comentarios , y conocer al diseñador es una grandísima ventaja.