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ı: 22 Saat 3 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">

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: 495	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ı: 10 Saat 34 Dakika Önce Saat 09:11
	Merhaba Berat, Öncelikle şunu söylemek istiyorum clComponent.SetupComponen bu yapıyla yazmamanını istiyorum. Şu an yapı da desteklemiyoruz. Hatanın sebebi de prosedürü 'acma' adı altında oluşturmuşsun ama Event da çağırırken start olarak çağırmışsın Var Switch : TclSwitch; Bmg1, Bmg2: TClProImage; Form1: TclForm; // Switch'e basıldığında çalışacak prosedür void acma; { if (Switch.IsChecked) { Bmg1.Visible = True; Bmg2.Visible = False; } else { Bmg1.Visible = False; Bmg2.Visible = True; } } { Form1 = TclForm.Create(Self); // --- RESİM 1 AYARLARI --- Bmg1 = Form1.AddNewProImage(Form1, 'Bmg1'); Bmg1.Align = alCenter; Bmg1.Width = 120; Bmg1.Height = 120; Bmg1.Margins.Bottom = 250; Form1.SetImage(Bmg1, 'https://i.hizliresim.com/sf427pj.png'); Bmg1.SetclProSettings(Bmg1.clProSettings); // --- RESİM 2 AYARLARI --- Bmg2 = Form1.AddNewProImage(Form1, 'Bmg2'); Bmg2.Align = alCenter; Bmg2.Width = 120; Bmg2.Height = 120; Bmg2.Margins.Bottom = 250; // Resim URL Atama Form1.SetImage(Bmg2, 'https://i.hizliresim.com/s35bzfl.png'); Bmg2.SetclProSettings(Bmg2.clProSettings); // Başlangıçta Bmg2 kapalı olsun Bmg2.Visible = False; // --- SWITCH AYARLARI --- Switch = Form1.AddNewSwitch(Form1, 'Switch'); Switch.Align = alCenter; Switch.Width = 120; Switch.Height = 50; Switch.Margins.Top = 150; // Olay Tanımlama (Event) Form1.AddNewEvent(Switch, tbeOnClick, 'acma'); 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">