TclForm Oluşturma - Kod hatası

Sayfayı Yazdır | Pencereyi Kapat

Kod hatası

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Form Oluşturma
Forum Adı: TclForm Oluşturma
Forum Tanımlaması: Standart bir form oluşturma
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1016
Tarih: 07 Temmuz 2025 Saat 06:40
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com

Konu: Kod hatası

Mesajı Yazan: Nida Güvercin
Konu: Kod hatası
Mesaj Tarihi: 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.

Cevaplar:

Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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;

}