GenerateRandom Fonksiyonu hatası


   Oluşturduğum dairenin konumunun formun herhangi bir yerinde başlamasını istiyorum fakat generaterandom fonksiyonu dairenin X ve Y değerlerini değiştirmiyor
var
  gameForm:TclGameForm;
  elapsedTime,randomX,randomY: Integer;
  timer1: TclTimer;
  lblScore: TClProLabel;
  circle1,circle2,circle3,circle4: TclCircle;
void randomCircleStart {

}
//60sn rastgele daire 
{
  gameForm = TCLGameForm.Create(Self);
  gameForm.SetFormColor('#b4e9b5','',clGNone);
  
  circle1 = gameForm.AddNewCircle(gameForm, 'circle1');
  circle1.Width = 100;
  circle1.Height = 100;
  circle1.Fill.Kind = fbkSolid;
  circle1.Stroke.Thickness = 2;
  circle1.Opacity= 0.7;
  randomX=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Height);
  randomY=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Width);
  circle1.Position.X = randomX;
  ShowMessage(circle1.Position.X);
  circle1.Position.Y= randomY;
  ShowMessage(circle1.Position.Y);
  
  gameForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
haletr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 16 Haziran 2025 Konum: Konya Durum: Aktif Değil Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı haletr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: GenerateRandom Fonksiyonu hatası Gönderim Zamanı: 6 Saat 52 Dakika Önce Saat 14:02
	Oluşturduğum dairenin konumunun formun herhangi bir yerinde başlamasını istiyorum fakat generaterandom fonksiyonu dairenin X ve Y değerlerini değiştirmiyor var gameForm:TclGameForm; elapsedTime,randomX,randomY: Integer; timer1: TclTimer; lblScore: TClProLabel; circle1,circle2,circle3,circle4: TclCircle; void randomCircleStart { } //60sn rastgele daire { gameForm = TCLGameForm.Create(Self); gameForm.SetFormColor('#b4e9b5','',clGNone); circle1 = gameForm.AddNewCircle(gameForm, 'circle1'); circle1.Width = 100; circle1.Height = 100; circle1.Fill.Kind = fbkSolid; circle1.Stroke.Thickness = 2; circle1.Opacity= 0.7; randomX=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Height); randomY=clMath.GenerateRandom(0,TForm(gameForm).ClientWidth - circle1.Width); circle1.Position.X = randomX; ShowMessage(circle1.Position.X); circle1.Position.Y= randomY; ShowMessage(circle1.Position.Y); gameForm.Run; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 72	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 4 Saat 36 Dakika Önce Saat 16:18
	Merhabalar, clMath.GenerateRandom() fonksiyonu yerine doğrudan Random() fonksiyonunu kullanabilirsiniz. Ayrıca, circle1.Align = alNone olarak ayarlanmazsa Position.X ve Y değerleri çalışmaz, buna dikkat etmeniz gerekir. Aşağıdaki gibi prosedür tanımlayıp form içinde çağırarak sorunu çözebilirsiniz void randomCircleStart; { randomX = Random(gameForm.clWidth - circle1.Width); randomY = Random(gameForm.clHeight - circle1.Height); circle1.Position.X = randomX; circle1.Position.Y = randomY; } Kolay gelsin.