4 respuestas en este tema

[Master23]

Hola amigos , espero que estén bien, en primer lugar tengo un problema con un pequeño juego amistoso que estoy realizando y cómo Delphi no acepta imágenes animadas como GIF , entonces tengo que hacer cambios de imagen para simular una especie de movimiento , un ejemplo

delphi

procedure caminar();
begin
while key=vk_right do 
image1.visible:=false;
image2.visible:=true;
sleep(100);
image2.visible:=false;
image3.visible:=true;
sleep(100)
end;

Ese pequeño fragmento de código es un ejemplo más o menos algo inventado pero cuando hago esto el programa se frisa y no realiza nada osea quiero simular que mi personaje camina, al dejar presionada la tecla de la derecha por ejemplo , gracias de antemano.

[eduarcol]

para que funcione deberas ponerlo en el onkeydown del form, colocar la propiedad KeyPreview en true.  y te falto un begin end

delphi

while key=vk_right do 
begin
   image1.visible:=false;
   image2.visible:=true;
   sleep(100);
   image2.visible:=false;
   image3.visible:=true;
   sleep(100)
end;

[Master23]

para que funcione deberas ponerlo en el onkeydown del form, colocar la propiedad KeyPreview en true.  y te falto un begin end

delphi

while key=vk_right do 
begin
   image1.visible:=false;
   image2.visible:=true;
   sleep(100);
   image2.visible:=false;
   image3.visible:=true;
   sleep(100)
end;

Si lo sé eduarcol, lo usé en keydown funciona pero se frisa, pero no hay problema ya lo solucione usando un timer,gracias.

[eduarcol]

Perdon, olvide que debes quitar el while.

[cadetill]

Buenas,

Como dice eduarcol, no debes usar un while, pero sí un if, sino te lo haría por cada una de las teclas pulsadas

delphi

if key=vk_right then
begin
   image1.visible:=false;
   image2.visible:=true;
   sleep(100);
   image2.visible:=false;
   image3.visible:=true;
   sleep(100)
end;

Nos leemos