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: 1 saat 44 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ı: 1 saat 40 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">