image hareketi

[serelif]

arkadaşlar form içindeki bir image'yi 10 saniye boyunca baştan sona doğru hareket ettirecek kodu bilen varsa lütfen söyleyebilirmi?

[futbolcu]

şöyle bir kod dediğinizi yapar mı?

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=10;
image1.left:=image1.left+1; // resim bulunduğu yerden sağa doğru gider.
end;

[fahrettin]

Eğer formun başindan sonua gitmesinin 10 saniye sürmesini istiyorsaniz o zaman Formun Oncreate olayına

Kod: Tümünü seç

Timer1.Interval:=Round(10000/(Form1.Width-Image1.Width));

yazıp timer'in intervalini ayarlayabilir sonra da ontimer eventinde de Image1 in Left ozelligini 1'er arttırırsınız.

[serelif]

teşekkürler