Código
muito util para iniciantes.
vamos ao que interessa....
1- coloque um componente Timage no form(Palheta Additional), na propriedade picture coloque a imagen do seu personagen.
2- Mude o nome da imagem para Personagen
3- No evento OnKeyPress de MainForm digite o seguinte código:
if (key='a') or (key='A') then personagen.Left := personagen.Left - 20;
if (key='d') or (key='D') then personagen.Left := personagen.Left + 20;
if (key='w') or (key='W') then personagen.top := personagen.top - 20;
if (key='s') or (key='S') then personagen.top := personagen.top + 20;
Bom espero que possa ter ajudado :)
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009