Código
if key = 'a ' then
begin
nave.Left:= nave.Left-3; //direção e velocidade
nave.Left:= nave.Left-3;//vai para a esquerda
nave.Left:= nave.Left-3;
nave.Left:= nave.Left-3;
end;
if key = 'd' then //vai pra direita
begin
nave.Left:= nave.Left+3;
nave.Left:= nave.Left+3;
nave.Left:= nave.Left+3;
nave.Left:= nave.Left+3;
end;
if key = 'w' then //vai pra cima
begin
nave.Top:= nave.Top-4;
nave.Top:= nave.Top-4;
end;
if key = 's' then //vai para baixo
begin
nave.Top:=nave.Top+4;
nave.Top:= nave.Top+4;
end;
E PRONTO O SEU PRIMEIRO PERSONAGEM JA SE MOVIMENTA!!!!!!
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009