![]() |
Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir. |
Resim hareket ettiremiyorum |
Yanıt Yaz ![]() |
Yazar | |
Sudesigirci ![]() Yeni Üye ![]() Kayıt Tarihi: 24 Haziran 2025 Konum: KONYA Durum: Aktif Değil Puanlar: 6 |
![]() Yanıt Yaz
Alıntı Sudesigirci
Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz.
![]() ![]() ![]() ![]() Gönderim Zamanı: 13 Saat 2 Dakika Önce 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 ![]() Yeni Üye ![]() ![]() Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 21 |
![]() ![]() ![]() ![]() ![]() |
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; } |
|
![]() |
Yanıt Yaz ![]() |
|
Tweet |
Forum Atla | Forum İzinleri ![]() Kapalı Foruma Yeni Konu Gönderme Kapalı Forumdaki Konulara Cevap Yazma Kapalı Forumda Cevapları Silme Kapalı Forumdaki Cevapları Düzenleme Kapalı Forumda Anket Açma Kapalı Forumda Anketlerde Oy Kullanma |