Código
------------------------------------------------
...
public
{ Public declarations }
X, Y:integer;//No onCreate definir a posição inicial do personagem
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetKeyState(VK_UP) <0 then //Seta para cima
Dec(Y);
if GetKeyState(VK_DOWN) <0 then //Seta para baixo
Inc(Y);
if GetKeyState(VK_LEFT) <0 then //Seta esquerda
Dec(X);
if GetKeyState(VK_RIGHT) <0 then //Seta direita
Inc(X);
Jogador1.Left := X; //Posição horizontal
Jogador1.Top := Y; //Posição vertical
end;
--------------------------------------------------
Em breve estarei postando um tutorial sobre como criar um jogo simples.
Espero que gostem e até a próxima.
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009