Clomosy | Forum : Kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 22:28:11 +0000 Wed, 21 May 2025 09:18:34 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1016 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Kod hatası : Merhaba Nida, kodun düzenlenmiş...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1016&PID=2025#2025 Yazar: Emr.Erkmn
Konu: 1016
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;
}
]]> Wed, 21 May 2025 09:18:34 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1016&PID=2025#2025 <![CDATA[Kod hatası : Kodlarda 11,33 hata veriyorvar...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1016&PID=2024#2024 Yazar: Nida Güvercin
Konu: 1016
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.
]]> Tue, 20 May 2025 21:13:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1016&PID=2024#2024