movendo imagens

Delphi

08/06/2003

Como faço para fazer com que uma imagem ´ande´ pelo form seguindo uma trajetoria que sera devinida via codigo.
Desde ja agadeço


Emilio

Emilio

Curtidas 0

Respostas

Pardal3000

Pardal3000

08/06/2003

Olá amigo,

Tente usar o Image.Left e Image.Top para mudar a imagem de lugar dentro do form... Utilize um Timer para dar o ´movimento´... Tipo assim:

Primeiramente crie duas variáveis globais (no Var do inicio do Form):

Var
ImgLeft, ImgTop: Integer;

Depois, no evento OnTime do Timer, coloque:

Procedure Timer1.OnTime (Sender: TObject);
Begin
Image1.Left:=Image1.Left+2;
Image1.Top:=Image1.Top+1;
end;

Coloque na propriedade Time do Timer1 o intervalo. PS: 1000 = 1 segundo;

Outra dica é utilizar o Screen.Width e Screen.Height para delimitar o ´espaço´ em que a imagem poderá se mover...

Espero ter ajudado,

Pardal3000


GOSTEI 0
Robotizar

Robotizar

08/06/2003

ae deste jeito funciona mas vc vai notar que a imagem fica piscando
entra ai foi um tutorial que eu fiz encinando a manipular sprites vai resolver este problema
[url]http://www.pdj.com.br:16080/forum/viewtopic.php?t=492[/url]


GOSTEI 0
Kroki

Kroki

08/06/2003

Eu baixei em um Site que ,não lembro qual é,um toturial muito bom onde vc aprende do inicio(piscando) até a utilização de BackBuffer.
De uma olhada;
http://www.kroki.hpg.com.br/dwon/video.zip


GOSTEI 0
POSTAR