Clomosy | Forum : ProImage'i hareket ettirme https://www.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Tue, 14 Apr 2026 23:39:47 +0000 Wed, 02 Aug 2023 10:44:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://www.clomosy.com.tr/RSS_post_feed.asp?TID=539 <![CDATA[Clomosy | Forum]]> https://www.clomosy.com.tr/forum_images/logo.png https://www.clomosy.com.tr/ <![CDATA[ProImage'i hareket ettirme : Position.X için Left,Position.Y...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=539&PID=624#624 Yazar: Alforce
Konu: 539
Gönderim Zamanı: 02 Ağustos 2023 Saat 10:44

Position.X için Left,
Position.Y için Top özelliklerini kullanabilirsiniz.
]]> Wed, 02 Aug 2023 10:44:55 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=539&PID=624#624 <![CDATA[ProImage'i hareket ettirme : procedure Ballhareket;ProImage...]]> https://www.clomosy.com.tr/forum_posts.asp?TID=539&PID=622#622 Yazar: Yusuf Eren
Konu: 539
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;

]]> Wed, 02 Aug 2023 10:40:28 +0000 https://www.clomosy.com.tr/forum_posts.asp?TID=539&PID=622#622