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: 19	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ı: 13 Saat 46 Dakika Önce 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">