Clomosy | Forum : Resim hareket ettiremiyorum https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 13:00:31 +0000 Thu, 03 Jul 2025 16:37:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1052 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Resim hareket ettiremiyorum : Merhaba,Öncelikle hareket et fonksiyonunu...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1052&PID=2099#2099 Yazar: haletr
Konu: 1052
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;
}


]]> Thu, 03 Jul 2025 16:37:33 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1052&PID=2099#2099 <![CDATA[Resim hareket ettiremiyorum : var caringform: TclStyleForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1052&PID=2097#2097 Yazar: Sudesigirci
Konu: 1052
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.
]]> Thu, 03 Jul 2025 15:58:08 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1052&PID=2097#2097