gizli button hatası


   
Var   
  Form1: TCLForm;
  LayoutKutu: TclLayout;
  BtnBasla, BtnBilgi : TClProButton;
  ImgBilgi : TClProImage;

void BtnBaslaClick;
{
  Clomosy.RunUnit('uGiris');
}

void BtnBilgiClick;
{
  ImgBilgi.Visible = True;
  ImgBilgi.BringToFront;  
}

void ImgBilgiClick;
{
  ImgBilgi.Visible = False; 
}

{
  Form1 = TCLForm.Create(Self);
  
  Form1.SetFormBGImage('https://resmim.net/cdn/2026/01/21/wigtJn.png');

  LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu');
  LayoutKutu.Align = alCenter;
  LayoutKutu.Height = 220; 
  LayoutKutu.Width = 300;
  
  BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', 'OYUNA BAŞLA');
  BtnBasla.Align = alTop;
  BtnBasla.Height = 100;
  BtnBasla.Margins.Bottom = 20; // İkinci butonla arasına boşluk
  
  BtnBasla.clProSettings.BorderColor = clAlphaColor.clWhite;
  BtnBasla.clProSettings.RoundHeight = 15;
  BtnBasla.clProSettings.RoundWidth = 15;
  BtnBasla.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnBasla.clProSettings.FontSize = 20;
  BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clSeagreen;
  BtnBasla.SetclProSettings(BtnBasla.clProSettings);
  
  Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick');

  BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', 'NASIL OYNANIR?');
  BtnBilgi.Align = alTop; 
  BtnBilgi.Height = 100;
  
  BtnBilgi.clProSettings.BorderColor = clAlphaColor.clWhite;
  BtnBilgi.clProSettings.RoundHeight = 15;
  BtnBilgi.clProSettings.RoundWidth = 15;
  BtnBilgi.clProSettings.FontColor = clAlphaColor.clWhite;
  BtnBilgi.clProSettings.FontSize = 20;
  BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clSteelblue; 
  BtnBilgi.SetclProSettings(BtnBilgi.clProSettings);
  
  Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick');

  //  BİLGİ GÖRSELİ (Pop-up) 
  ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi');
  ImgBilgi.Align = alClient; 
  ImgBilgi.Visible = False;  
  
  ImgBilgi.clProSettings.PictureSource = 'https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png'; 
  ImgBilgi.clProSettings.IsFill = True; 
  ImgBilgi.SetclProSettings(ImgBilgi.clProSettings);
  
  Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick');

  Form1.Run;
}


https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
kayra.55 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 17 Kasım 2025 Durum: Aktif Değil Puanlar: 20	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra.55 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: gizli button hatası Gönderim Zamanı: Dün Saat 09:11
	Var Form1: TCLForm; LayoutKutu: TclLayout; BtnBasla, BtnBilgi : TClProButton; ImgBilgi : TClProImage; void BtnBaslaClick; { Clomosy.RunUnit('uGiris'); } void BtnBilgiClick; { ImgBilgi.Visible = True; ImgBilgi.BringToFront; } void ImgBilgiClick; { ImgBilgi.Visible = False; } { Form1 = TCLForm.Create(Self); Form1.SetFormBGImage('https://resmim.net/cdn/2026/01/21/wigtJn.png'); LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu'); LayoutKutu.Align = alCenter; LayoutKutu.Height = 220; LayoutKutu.Width = 300; BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', 'OYUNA BAŞLA'); BtnBasla.Align = alTop; BtnBasla.Height = 100; BtnBasla.Margins.Bottom = 20; // İkinci butonla arasına boşluk BtnBasla.clProSettings.BorderColor = clAlphaColor.clWhite; BtnBasla.clProSettings.RoundHeight = 15; BtnBasla.clProSettings.RoundWidth = 15; BtnBasla.clProSettings.FontColor = clAlphaColor.clWhite; BtnBasla.clProSettings.FontSize = 20; BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clSeagreen; BtnBasla.SetclProSettings(BtnBasla.clProSettings); Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick'); BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', 'NASIL OYNANIR?'); BtnBilgi.Align = alTop; BtnBilgi.Height = 100; BtnBilgi.clProSettings.BorderColor = clAlphaColor.clWhite; BtnBilgi.clProSettings.RoundHeight = 15; BtnBilgi.clProSettings.RoundWidth = 15; BtnBilgi.clProSettings.FontColor = clAlphaColor.clWhite; BtnBilgi.clProSettings.FontSize = 20; BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clSteelblue; BtnBilgi.SetclProSettings(BtnBilgi.clProSettings); Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick'); // BİLGİ GÖRSELİ (Pop-up) ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi'); ImgBilgi.Align = alClient; ImgBilgi.Visible = False; ImgBilgi.clProSettings.PictureSource = 'https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png'; ImgBilgi.clProSettings.IsFill = True; ImgBilgi.SetclProSettings(ImgBilgi.clProSettings); Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick'); Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

kayra.55 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 17 Kasım 2025 Durum: Aktif Değil Puanlar: 20	Mesaj Seçenekleri Yanıt Yaz Alıntı kayra.55 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 6 Saat 59 Dakika Önce Saat 09:06
	Var Form1: TCLForm; LayoutKutu: TclLayout; BtnBasla, BtnBilgi : TClProButton; ImgBilgi : TClProImage; void BtnBaslaClick; { Clomosy.RunUnit('Ugiris'); } void BtnBilgiClick; { ImgBilgi.Visible = True; ImgBilgi.BringToFront; } void ImgBilgiClick; { ImgBilgi.Visible = False; } { Form1 = TCLForm.Create(Self); // ARKA PLAN (SENİN GÖRSELİN) Form1.SetFormBGImage('https://resmim.net/cdn/2026/01/26/wt8ey8.png'); // BUTON ALANI (ALTTA) LayoutKutu = Form1.AddNewLayout(Form1, 'LayoutKutu'); LayoutKutu.Align = alBottom; LayoutKutu.Height = 140; LayoutKutu.Width = 320; LayoutKutu.Margins.Bottom = 40; // OYNA (SOL) BtnBasla = Form1.AddNewProButton(LayoutKutu, 'BtnBasla', ''); BtnBasla.Align = alLeft; BtnBasla.Width = 150; BtnBasla.Height = 100; // GÖRÜNMEZ BUTON AYARLARI BtnBasla.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBasla.clProSettings.BorderColor = clAlphaColor.clNull; BtnBasla.clProSettings.FontColor = clAlphaColor.clNull; BtnBasla.SetclProSettings(BtnBasla.clProSettings); Form1.AddNewEvent(BtnBasla, tbeOnClick, 'BtnBaslaClick'); // NASIL OYNANIR? (SAĞ – DEVAM YERİ) BtnBilgi = Form1.AddNewProButton(LayoutKutu, 'BtnBilgi', ''); BtnBilgi.Align = alRight; BtnBilgi.Width = 150; BtnBilgi.Height = 100; // GÖRÜNMEZ BUTON AYARLARI BtnBilgi.clProSettings.BackgroundColor = clAlphaColor.clNull; BtnBilgi.clProSettings.BorderColor = clAlphaColor.clNull; BtnBilgi.clProSettings.FontColor = clAlphaColor.clNull; BtnBilgi.SetclProSettings(BtnBilgi.clProSettings); Form1.AddNewEvent(BtnBilgi, tbeOnClick, 'BtnBilgiClick'); // BİLGİ GÖRSELİ (POP-UP) ImgBilgi = Form1.AddNewProImage(Form1, 'ImgBilgi'); ImgBilgi.Align = alClient; ImgBilgi.Visible = False; ImgBilgi.clProSettings.PictureSource ='https://raw.githubusercontent.com/kayra12oztruk-byte/oyun-/main/button.png'; ImgBilgi.clProSettings.IsFill = True; ImgBilgi.SetclProSettings(ImgBilgi.clProSettings); Form1.AddNewEvent(ImgBilgi, tbeOnClick, 'ImgBilgiClick'); Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

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: 515	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 6 Saat 52 Dakika Önce Saat 09:13
	Merhaba Kayra, BtnBasla.margins.left=100 BtnBilgi.margins.right=100 özelliklerini ekleyerek tekrar dener misinhttps://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

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: 515	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 6 Saat 51 Dakika Önce Saat 09:14
	LayoutKutu.Margins.Bottom = 40; özellik atamasını da koddan kaldırır mısın?https://static.cloudflareinsights.com/beacon.min.js/vcd15cbe7772f49c399c6a5babf22c1241717689176015" integrity="sha512-ZpsOmlRQV6y907TI0dKBHq9Md29nnaEIPlkf84rnaERnq6zvWvPUqr2ft8M1aS28oN72PdrCzSjY4U6VaAw1EQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">