Switch kullanırken sorun yaşıyorum


   Var
 Switch : TclSwitch;
 Bmg1, Bmg2: TClProImage;
 Form1: TclForm;
 void acma {
   
   if (Switch.isChecked){
     Bmg1.visible=True;
     Bmg2.visible= False;
     
   }
   else {
     Bmg1.visible=False;
     Bmg2.visible= True;
   }
 }
{
  Form1 = TclForm.Create(Self);
  Switch= Form1.AddNewSwitch(Form1,'Switch');
  Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1');
  Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2');
  clComponent.SetupComponent(Bmg1,'{"Align": "Center",
    "MarginsBottom":250,
    "Width":120,
    "Height":120,
    "ImgUrl":"https://i.hizliresim.com/sf427pj.png",
    "ImgFit": "yes"
  }');
  
  clComponent.SetupComponent(Bmg2,'{"Align": "Center",
    "MarginsBottom":250,
    "Width":120,
    "Height":120,
    "ImgUrl":"https://i.hizliresim.com/s35bzfl.png",
    "ImgFit": "yes"
  }');
  
  Switch.Align= alCenter;
  Switch.Height=330;
  Switch.Width=120;
  
  Form1.AddNewEvent(Switch,tbeOnClick,'start')
  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
Berat Deveci Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 03 Aralık 2025 Konum: Konya Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı Berat Deveci Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Switch kullanırken sorun yaşıyorum Gönderim Zamanı: 4 Saat 10 Dakika Önce Saat 21:42
	Var Switch : TclSwitch; Bmg1, Bmg2: TClProImage; Form1: TclForm; void acma { if (Switch.isChecked){ Bmg1.visible=True; Bmg2.visible= False; } else { Bmg1.visible=False; Bmg2.visible= True; } } { Form1 = TclForm.Create(Self); Switch= Form1.AddNewSwitch(Form1,'Switch'); Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1'); Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2'); clComponent.SetupComponent(Bmg1,'{"Align": "Center", "MarginsBottom":250, "Width":120, "Height":120, "ImgUrl":"https://i.hizliresim.com/sf427pj.png", "ImgFit": "yes" }'); clComponent.SetupComponent(Bmg2,'{"Align": "Center", "MarginsBottom":250, "Width":120, "Height":120, "ImgUrl":"https://i.hizliresim.com/s35bzfl.png", "ImgFit": "yes" }'); Switch.Align= alCenter; Switch.Height=330; Switch.Width=120; Form1.AddNewEvent(Switch,tbeOnClick,'start') 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">