Resim hareket ettiremiyorum

   var
  caringform: TclStyleForm;
  imgBocek: TClProImage;
  hareketZamanlayici: TClTimer;
  posX: Integer;

void hareketEt;
{
  posX = posX + 5;
  imgBocek.Margins.Left = posX;
  if (posX > 800) {
    posX = 0;
  }
}

{
  caringform = TclStyleForm.Create(Self);
  caringform.SetFormBGImage('https://i.imgur.com/noikEXy.jpeg');

  imgBocek = caringform.AddNewProImage(caringform, 'imgBocek');
  imgBocek.clProSettings.PictureSource = 'https://i.imgur.com/Vn3RL47.png'; 
  imgBocek.Height = 80;
  imgBocek.Width = 80;
  imgBocek.Margins.Left = 20;
  imgBocek.Margins.Top = 150;
  imgBocek.Visible = True;
  posX = imgBocek.Margins.Left;

  hareketZamanlayici = caringform.AddNewTimer(caringform, 'hareketZamanlayici', 100);
  caringform.AddNewEvent(hareketZamanlayici, tbeOnTimer, 'hareketEt');

  hareketZamanlayici.Enabled = True;

  caringform.Run;
}
Merhaba , oluşturduğum formun üstüne bir resim ekledim hareket etmesini istiyorum fonksiyonları yazdım fakat resmim gözükmüyor şimdiden geri dönüşleriniz için teşekkür ederim.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Sudesigirci Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 157	Mesaj Seçenekleri Yanıt Yaz Alıntı Sudesigirci Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Resim hareket ettiremiyorum Gönderim Zamanı: 03 Temmuz 2025 Saat 15:58
	var caringform: TclStyleForm; imgBocek: TClProImage; hareketZamanlayici: TClTimer; posX: Integer; void hareketEt; { posX = posX + 5; imgBocek.Margins.Left = posX; if (posX > 800) { posX = 0; } } { caringform = TclStyleForm.Create(Self); caringform.SetFormBGImage('https://i.imgur.com/noikEXy.jpeg'); imgBocek = caringform.AddNewProImage(caringform, 'imgBocek'); imgBocek.clProSettings.PictureSource = 'https://i.imgur.com/Vn3RL47.png'; imgBocek.Height = 80; imgBocek.Width = 80; imgBocek.Margins.Left = 20; imgBocek.Margins.Top = 150; imgBocek.Visible = True; posX = imgBocek.Margins.Left; hareketZamanlayici = caringform.AddNewTimer(caringform, 'hareketZamanlayici', 100); caringform.AddNewEvent(hareketZamanlayici, tbeOnTimer, 'hareketEt'); hareketZamanlayici.Enabled = True; caringform.Run; } Merhaba , oluşturduğum formun üstüne bir resim ekledim hareket etmesini istiyorum fonksiyonları yazdım fakat resmim gözükmüyor şimdiden geri dönüşleriniz için teşekkür ederim.

haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 138	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(2) Alıntı Cevapla Gönderim Zamanı: 03 Temmuz 2025 Saat 16:37
	Merhaba, Öncelikle hareket et fonksiyonunu bu şekilde değiştirmek daha sağlıklı olacaktır: void hareketEt; { posX = posX + 5; imgBocek.Position.X = posX; if (posX > caringform.clWidth) { posX = -imgBocek.Width; } } Bir diğer nokta ise, imgBocek.Align=alNone; yapmadığımız sürece nesneye X ve Y değeri veremiyoruz. Bu nedenle onu eklememiz lazım. Ayrıca, imgBocek nesnemiz TclProImage olduğu için yaptığımız değişiklikleri imgBocek.SetClProSettings(imgBocek.clProSettings); ile set etmeliyiz. Tüm kod: var caringform: TclStyleForm; imgBocek: TClProImage; hareketZamanlayici: TClTimer; posX: Integer; void hareketEt; //Değiştirildi { posX = posX + 5; imgBocek.Position.X = posX; if (posX > caringform.clWidth) { posX = -imgBocek.Width; } } { caringform = TclStyleForm.Create(Self); caringform.SetFormBGImage('https://i.imgur.com/noikEXy.jpeg'); imgBocek = caringform.AddNewProImage(caringform, 'imgBocek'); imgBocek.clProSettings.PictureSource = 'https://i.imgur.com/Vn3RL47.png'; imgBocek.Align = alNone; //Yeni eklendi imgBocek.Height = 80; imgBocek.Width = 80; imgBocek.Margins.Left = 20; imgBocek.Margins.Top = 150; imgBocek.Visible = True; posX = imgBocek.Margins.Left; imgBocek.SetClProSettings(imgBocek.clProSettings); //Yeni eklendi hareketZamanlayici = caringform.AddNewTimer(caringform, 'hareketZamanlayici', 100); caringform.AddNewEvent(hareketZamanlayici, tbeOnTimer, 'hareketEt'); hareketZamanlayici.Enabled = True; caringform.Run; }