ProImage'i hareket ettirme

   procedure Ballhareket;
ProImage türünden bir değişkenim var. Bu değişkeni sürekli sağa hareket etmesini istiyorum.    ImgBall.Position.X  :=  ImgBall.Position.X  - 15;  kullandığımda topu hareket ettiremedim. Kenar sınır kontrolleri çalışmadı. Ne yapabilirim?

ImgBall : TclProImage;

procedure Hareket;
begin
  //ImgBall.Margins.Right := ImgBall.Margins.Right + 15;
  ImgBall.Position.X  :=  ImgBall.Position.X  - 15;

    if (ImgBall.Position.X + ImgBall.Width) > TForm(MyForm).ClientWidth then  // Form Right border control
      ImgBall.Position.X := TForm(MyForm).ClientWidth - ImgBall.Width;

    if (ImgBall.Position.X) < 0 then // Left border control
    begin
      ImgBall.Position.X := 0;
    end;

    if (ImgBall.Position.Y + ImgBall.Height) > TForm(MyForm).ClientHeight then  // Form Bottom border control
      ImgBall.Position.Y := TForm(MyForm).ClientHeight - ImgBall.Height;

    if (ImgBall.Position.Y < 0) then  // Top border control
      ImgBall.Position.Y := 0;  
end;

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Yusuf Eren Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Temmuz 2023 Durum: Aktif Değil Puanlar: 29	Mesaj Seçenekleri Yanıt Yaz Alıntı Yusuf Eren Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: ProImage'i hareket ettirme Gönderim Zamanı: 02 Ağustos 2023 Saat 10:40
	procedure Ballhareket; ProImage türünden bir değişkenim var. Bu değişkeni sürekli sağa hareket etmesini istiyorum. ImgBall.Position.X := ImgBall.Position.X - 15; kullandığımda topu hareket ettiremedim. Kenar sınır kontrolleri çalışmadı. Ne yapabilirim? ImgBall : TclProImage; procedure Hareket; begin //ImgBall.Margins.Right := ImgBall.Margins.Right + 15; ImgBall.Position.X := ImgBall.Position.X - 15; if (ImgBall.Position.X + ImgBall.Width) > TForm(MyForm).ClientWidth then // Form Right border control ImgBall.Position.X := TForm(MyForm).ClientWidth - ImgBall.Width; if (ImgBall.Position.X) < 0 then // Left border control begin ImgBall.Position.X := 0; end; if (ImgBall.Position.Y + ImgBall.Height) > TForm(MyForm).ClientHeight then // Form Bottom border control ImgBall.Position.Y := TForm(MyForm).ClientHeight - ImgBall.Height; if (ImgBall.Position.Y < 0) then // Top border control ImgBall.Position.Y := 0; end;

Alforce Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 26 Temmuz 2023 Durum: Aktif Değil Puanlar: 150	Mesaj Seçenekleri Yanıt Yaz Alıntı Alforce Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 02 Ağustos 2023 Saat 10:44
	Position.X için Left, Position.Y için Top özelliklerini kullanabilirsiniz.