Código
//paleta de componetes: additional>image
//a image tera o nome de image1
{insira o codigo no evento KeyPress do form(formulario)}
if (key='d') or (key='D') then
begin
image1.left:=image1.left +4;//imagen1 anda para direita
end;
if (key='a') or (key='A') then
begin
image1.left:=image1.left -4;//imagen1 anda para esquerda
end;
if (key='s') or (key='S') then
begin
image1.top:=image1.top +4;//imagen1 anda para baixo
end;
if (key='w') or (key='W') then
begin
image1.top:=image1.top -4;//imagen1 anda para cima
end;
{tenho mais dicas fale comigo}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009