Sayfayı Yazdır | Pencereyi Kapat

Switch kullanırken sorun yaşıyorum

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Clomosy ile değişken kullanımı
Forum Tanımlaması: TRObject dili ile değişken tanımlaması ve ekranda gösterme
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1250
Tarih: 24 Şubat 2026 Saat 15:44
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Switch kullanırken sorun yaşıyorum
Mesajı Yazan: Berat Deveci
Konu: Switch kullanırken sorun yaşıyorum
Mesaj Tarihi: 24 Aralık 2025 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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">



Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 25 Aralık 2025 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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">



Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net