Clomosy uygulaması kodları açmıyor


   var
Form1 : TclForm;
BtnMerkur, BtnVenus, BtnDunya, BtnMars, BtnJupiter, BtnSaturn, BtnUranus, BtnNeptun : TClProButton;

void ShowInfo;
{
  ShowMessage('sss');
}

{
  Form1 = TclForm.Create(Self);

  // Merkür
  BtnMerkur = Form1.AddNewProButton(Form1,'BtnMerkur','Merkür');
 // BtnMerkur.clprosettings.PictureSource = '/assets/merkür';
 // BtnMerkur.SetclProsettings(BtnMerkur.clprosettings)
 // Form1.AddNewEvent(BtnMerkur,tbeOnClick,'ShowInfo("Güneşe en yakın gezegen, yüzeyi çok sıcak.")');
/*
  // Venüs
  BtnVenus = Form1.AddNewProButton(Form1,'BtnVenus','Venüs');
  BtnVenus.PictureSource = '/assets/venüs';
 // Form1.AddNewEvent(BtnVenus,tbeOnClick,'ShowInfo("Yoğun atmosferi nedeniyle sera etkisi çok güçlü.")');

  // Dünya
  BtnDunya = Form1.AddNewProButton(Form1,'BtnDunya','Dünya');
  BtnDunya.PictureSource = '/assets/dünya';
  //Form1.AddNewEvent(BtnDunya,tbeOnClick,'ShowInfo("Yaşamın bulunduğu tek gezegen.")');

  // Mars
  BtnMars = Form1.AddNewProButton(Form1,'BtnMars','Mars');
  BtnMars.PictureSource = '/assets/mars';
 // Form1.AddNewEvent(BtnMars,tbeOnClick,'ShowInfo("Kızıl gezegen, su izleri bulunmuştur.")');

  // Jüpiter
  BtnJupiter = Form1.AddNewProButton(Form1,'BtnJupiter','Jüpiter');
  BtnJupiter.PictureSource = '/assets/jüpiter';
 // Form1.AddNewEvent(BtnJupiter,tbeOnClick,'ShowInfo("En büyük gezegen, Büyük Kırmızı Leke adlı fırtınası vardır.")');

  // Satürn
  BtnSaturn = Form1.AddNewProButton(Form1,'BtnSaturn','Satürn');
  BtnSaturn.PictureSource = '/assets/satürn';
 // Form1.AddNewEvent(BtnSaturn,tbeOnClick,'ShowInfo("Geniş ve görkemli halka sistemine sahiptir.")');

  // Uranüs
  BtnUranus = Form1.AddNewProButton(Form1,'BtnUranus','Uranüs');
  BtnUranus.PictureSource = '/assets/uranüs';
  //Form1.AddNewEvent(BtnUranus,tbeOnClick,'ShowInfo("Eksen eğikliği nedeniyle yan yatmış gibi döner.")');

  // Neptün
  BtnNeptun = Form1.AddNewProButton(Form1,'BtnNeptun','Neptün');
  BtnNeptun.PictureSource = '/assets/neptün';
 // Form1.AddNewEvent(BtnNeptun,tbeOnClick,'ShowInfo("En uzak gezegen, güçlü rüzgarlara sahiptir.")');*/

  Form1.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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
cemanurr Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 5 Saat 5 Dakika Önce Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı cemanurr Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Clomosy uygulaması kodları açmıyor Gönderim Zamanı: 5 Saat 1 Dakika Önce Saat 14:14
	var Form1 : TclForm; BtnMerkur, BtnVenus, BtnDunya, BtnMars, BtnJupiter, BtnSaturn, BtnUranus, BtnNeptun : TClProButton; void ShowInfo; { ShowMessage('sss'); } { Form1 = TclForm.Create(Self); // Merkür BtnMerkur = Form1.AddNewProButton(Form1,'BtnMerkur','Merkür'); // BtnMerkur.clprosettings.PictureSource = '/assets/merkür'; // BtnMerkur.SetclProsettings(BtnMerkur.clprosettings) // Form1.AddNewEvent(BtnMerkur,tbeOnClick,'ShowInfo("Güneşe en yakın gezegen, yüzeyi çok sıcak.")'); /* // Venüs BtnVenus = Form1.AddNewProButton(Form1,'BtnVenus','Venüs'); BtnVenus.PictureSource = '/assets/venüs'; // Form1.AddNewEvent(BtnVenus,tbeOnClick,'ShowInfo("Yoğun atmosferi nedeniyle sera etkisi çok güçlü.")'); // Dünya BtnDunya = Form1.AddNewProButton(Form1,'BtnDunya','Dünya'); BtnDunya.PictureSource = '/assets/dünya'; //Form1.AddNewEvent(BtnDunya,tbeOnClick,'ShowInfo("Yaşamın bulunduğu tek gezegen.")'); // Mars BtnMars = Form1.AddNewProButton(Form1,'BtnMars','Mars'); BtnMars.PictureSource = '/assets/mars'; // Form1.AddNewEvent(BtnMars,tbeOnClick,'ShowInfo("Kızıl gezegen, su izleri bulunmuştur.")'); // Jüpiter BtnJupiter = Form1.AddNewProButton(Form1,'BtnJupiter','Jüpiter'); BtnJupiter.PictureSource = '/assets/jüpiter'; // Form1.AddNewEvent(BtnJupiter,tbeOnClick,'ShowInfo("En büyük gezegen, Büyük Kırmızı Leke adlı fırtınası vardır.")'); // Satürn BtnSaturn = Form1.AddNewProButton(Form1,'BtnSaturn','Satürn'); BtnSaturn.PictureSource = '/assets/satürn'; // Form1.AddNewEvent(BtnSaturn,tbeOnClick,'ShowInfo("Geniş ve görkemli halka sistemine sahiptir.")'); // Uranüs BtnUranus = Form1.AddNewProButton(Form1,'BtnUranus','Uranüs'); BtnUranus.PictureSource = '/assets/uranüs'; //Form1.AddNewEvent(BtnUranus,tbeOnClick,'ShowInfo("Eksen eğikliği nedeniyle yan yatmış gibi döner.")'); // Neptün BtnNeptun = Form1.AddNewProButton(Form1,'BtnNeptun','Neptün'); BtnNeptun.PictureSource = '/assets/neptün'; // Form1.AddNewEvent(BtnNeptun,tbeOnClick,'ShowInfo("En uzak gezegen, güçlü rüzgarlara sahiptir.")');*/ Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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: 28	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ı: 2 Saat 58 Dakika Önce Saat 16:17
	Merhaba cemanur kodun çalışan hali aşağıda verilmiştir var Form1 : TclForm; ScrollKutusu: TclVertScrollBox; BtnMerkur, BtnVenus, BtnDunya, BtnMars, BtnJupiter, BtnSaturn, BtnUranus, BtnNeptun : TClProButton; // Tek bir prosedür üzerinden tüm butonların mesajlarını yönetiyoruz void ShowInfo; var TiklananButon: TClProButton; ButonIsmi: String; { // Hangi butona tıklandığını yakala TiklananButon = TClProButton(Form1.ClSender); ButonIsmi = TiklananButon.Caption; if (ButonIsmi == 'Merkür') { ShowMessage('Güneşe en yakın gezegen, yüzeyi çok sıcak.'); } if (ButonIsmi == 'Venüs') { ShowMessage('Yoğun atmosferi nedeniyle sera etkisi çok güçlü.'); } if (ButonIsmi == 'Dünya') { ShowMessage('Yaşamın bulunduğu tek gezegen.'); } if (ButonIsmi == 'Mars') { ShowMessage('Kızıl gezegen, su izleri bulunmuştur.'); } if (ButonIsmi == 'Jüpiter') { ShowMessage('En büyük gezegen, Büyük Kırmızı Leke adlı fırtınası vardır.'); } if (ButonIsmi == 'Satürn') { ShowMessage('Geniş ve görkemli halka sistemine sahiptir.'); } if (ButonIsmi == 'Uranüs') { ShowMessage('Eksen eğikliği nedeniyle yan yatmış gibi döner.'); } if (ButonIsmi == 'Neptün') { ShowMessage('En uzak gezegen, güçlü rüzgarlara sahiptir.'); } } // Butonlara ortak tasarım uygulamak için yardımcı prosedür void GezegenButonuOlustur(AButon: TClProButton; AResimYolu: String); { AButon.Align = alTop; AButon.Height = 60; AButon.Margins.Top = 10; AButon.Margins.Left = 10; AButon.Margins.Right = 10; // Resim eklemek için doğru ProButton formatı (Resimler projeye yüklenmiş olmalı) // AButon.clProSettings.PictureSource = AResimYolu; // AButon.clProSettings.PictureAutoFit = True; AButon.clProSettings.IsRound = True; AButon.clProSettings.RoundHeight = 10; AButon.SetclProSettings(AButon.clProSettings); Form1.AddNewEvent(AButon, tbeOnClick, 'ShowInfo'); } { Form1 = TclForm.Create(Self); // Ekrana sığmama ihtimaline karşı kaydırma kutusu ekliyoruz ScrollKutusu = Form1.AddNewVertScrollBox(Form1, 'ScrollKutusu'); ScrollKutusu.Align = alClient; BtnMerkur = Form1.AddNewProButton(ScrollKutusu, 'BtnMerkur', 'Merkür'); GezegenButonuOlustur(BtnMerkur, 'merkur.png'); BtnVenus = Form1.AddNewProButton(ScrollKutusu, 'BtnVenus', 'Venüs'); GezegenButonuOlustur(BtnVenus, 'venus.png'); BtnDunya = Form1.AddNewProButton(ScrollKutusu, 'BtnDunya', 'Dünya'); GezegenButonuOlustur(BtnDunya, 'dunya.png'); BtnMars = Form1.AddNewProButton(ScrollKutusu, 'BtnMars', 'Mars'); GezegenButonuOlustur(BtnMars, 'mars.png'); BtnJupiter = Form1.AddNewProButton(ScrollKutusu, 'BtnJupiter', 'Jüpiter'); GezegenButonuOlustur(BtnJupiter, 'jupiter.png'); BtnSaturn = Form1.AddNewProButton(ScrollKutusu, 'BtnSaturn', 'Satürn'); GezegenButonuOlustur(BtnSaturn, 'saturn.png'); BtnUranus = Form1.AddNewProButton(ScrollKutusu, 'BtnUranus', 'Uranüs'); GezegenButonuOlustur(BtnUranus, 'uranus.png'); BtnNeptun = Form1.AddNewProButton(ScrollKutusu, 'BtnNeptun', 'Neptün'); GezegenButonuOlustur(BtnNeptun, 'neptun.png'); Form1.Run; } https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" 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">