Kod hatası

   Kodlarda 11,33 hata veriyorvar
  anaForm : TclStyleForm;
  btnNotGiris, btnGeriBildirim, btnListeGor : TclButton;

procedure BtnNotGirisClick;
begin
  Clomosy.RunUnit('uNotGiris');
end;

procedure BtnGeriBildirimClick;
begin
  Clomosy.RunUnit('uGeriBildirim');
end;

procedure BtnListeGorClick;
begin
  Clomosy.RunUnit('uOgrenciListesi');
end;

begin
  anaForm := TclStyleForm.Create(nil, 'anaForm', true);
  anaForm.Fill.Color := '#EBF5FB';

  btnNotGiris := anaForm.AddNewButton(anaForm, 'btnNotGiris', 'Not Girişi');
  btnNotGiris.Align := alTop;
  anaForm.AddNewEvent(btnNotGiris, tbeOnClick, 'BtnNotGirisClick');

  btnGeriBildirim := anaForm.AddNewButton(anaForm, 'btnGeriBildirim', 'Geri Bildirim Gönder');
  btnGeriBildirim.Align := alTop;
  anaForm.AddNewEvent(btnGeriBildirim, tbeOnClick, 'BtnGeriBildirimClick');

  btnListeGor := anaForm.AddNewButton(anaForm, 'btnListeGor', 'Not Listesi ve Ortalama');
  btnListeGor.Align := alTop;
  anaForm.AddNewEvent(btnListeGor, tbeOnClick, 'BtnListeGorClick');

  anaForm.Run;
end.

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Nida Güvercin Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 12 Mayıs 2025 Durum: Aktif Değil Puanlar: 11	Mesaj Seçenekleri Yanıt Yaz Alıntı Nida Güvercin Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Kod hatası Gönderim Zamanı: 20 Mayıs 2025 Saat 21:13
	Kodlarda 11,33 hata veriyor var anaForm : TclStyleForm; btnNotGiris, btnGeriBildirim, btnListeGor : TclButton; procedure BtnNotGirisClick; begin Clomosy.RunUnit('uNotGiris'); end; procedure BtnGeriBildirimClick; begin Clomosy.RunUnit('uGeriBildirim'); end; procedure BtnListeGorClick; begin Clomosy.RunUnit('uOgrenciListesi'); end; begin anaForm := TclStyleForm.Create(nil, 'anaForm', true); anaForm.Fill.Color := '#EBF5FB'; btnNotGiris := anaForm.AddNewButton(anaForm, 'btnNotGiris', 'Not Girişi'); btnNotGiris.Align := alTop; anaForm.AddNewEvent(btnNotGiris, tbeOnClick, 'BtnNotGirisClick'); btnGeriBildirim := anaForm.AddNewButton(anaForm, 'btnGeriBildirim', 'Geri Bildirim Gönder'); btnGeriBildirim.Align := alTop; anaForm.AddNewEvent(btnGeriBildirim, tbeOnClick, 'BtnGeriBildirimClick'); btnListeGor := anaForm.AddNewButton(anaForm, 'btnListeGor', 'Not Listesi ve Ortalama'); btnListeGor.Align := alTop; anaForm.AddNewEvent(btnListeGor, tbeOnClick, 'BtnListeGorClick'); anaForm.Run; end.

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: 455	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ı: 21 Mayıs 2025 Saat 09:18
	Merhaba Nida, kodun düzenlenmiş hali şu şekilde; TclStyleForm tek bir parametre almaktadır, Formun arka planını renklendirmek içinde SetFormColor metodu kullanılmaktadır. var anaForm : TclStyleForm; btnNotGiris, btnGeriBildirim, btnListeGor : TclButton; void BtnNotGirisClick; { Clomosy.RunUnit('uNotGiris'); } void BtnGeriBildirimClick; { Clomosy.RunUnit('uGeriBildirim'); } void BtnListeGorClick; { Clomosy.RunUnit('uOgrenciListesi'); } { anaForm=TclStyleForm.Create(self); anaForm.SetFormColor('#EBF5FB', '', clGNone); btnNotGiris=anaForm.AddNewButton(anaForm, 'btnNotGiris', 'Not Girişi'); btnNotGiris.Align=alTop; anaForm.AddNewEvent(btnNotGiris, tbeOnClick, 'BtnNotGirisClick'); btnGeriBildirim=anaForm.AddNewButton(anaForm, 'btnGeriBildirim', 'Geri Bildirim Gönder'); btnGeriBildirim.Align=alTop; anaForm.AddNewEvent(btnGeriBildirim, tbeOnClick, 'BtnGeriBildirimClick'); btnListeGor=anaForm.AddNewButton(anaForm, 'btnListeGor', 'Not Listesi ve Ortalama'); btnListeGor.Align=alTop; anaForm.AddNewEvent(btnListeGor, tbeOnClick, 'BtnListeGorClick'); anaForm.Run; }