Clomosy | Forum : Kod hatası

Clomosy | Forum : Kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 01 May 2026 20:55:10 +0000 Tue, 20 May 2025 10:02:06 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1015 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Kod hatası : Merhaba Nida,Kodun çalışır hali:var...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1015&PID=2023#2023 Yazar: Developer
Konu: 1015
Gönderim Zamanı: 20 Mayıs 2025 Saat 10:02

Merhaba Nida,

Kodun çalışır hali:

var

mainForm: TclStyleForm;

lblBaslik, lblKadi, lblSifre: TclLabel;

edtKadi, edtSifre: TclEdit;

btnGiris, btnKayit: TclButton;

ogrenciListesi: TclStringList;

procedure BtnGirisClick;

begin

if (edtKadi.Text = 'ogretmen') and (edtSifre.Text = '1234') then

Clomosy.RunUnit('uAnaSayfa')

else

ShowMessage('Kullanıcı adı veya şifre hatalı.');

end;

procedure BtnKayitClick;

begin

ShowMessage('Kayıt olma özelliği bu sürümde devre dışı.');

end;

begin

ogrenciListesi := Clomosy.StringListNew;

mainForm := TclStyleForm.Create(self);

mainForm.clSetStyle(mainForm.DarkSB);

lblBaslik := mainForm.AddNewLabel(mainForm, 'lblBaslik', 'Öğretmen Giriş Ekranı');

lblBaslik.TextSettings.Font.Size := 20;

lblBaslik.Align := alTop;

lblKadi := mainForm.AddNewLabel(mainForm, 'lblKadi', 'Kullanıcı Adı:');

lblKadi.Align := alTop;

edtKadi := TclEdit.Create(mainForm); // sadece 1 parametre

mainForm.clGetChild(edtKadi);

edtKadi.Align := alTop;

lblSifre := mainForm.AddNewLabel(mainForm, 'lblSifre', 'Şifre:');

lblSifre.Align := alTop;

edtSifre := TclEdit.Create(mainForm); // sadece 1 parametre

mainForm.clGetChild(edtSifre);

edtSifre.Align := alTop;

edtSifre.Password := True;

btnGiris := mainForm.AddNewButton(mainForm, 'btnGiris', 'Giriş Yap');

btnGiris.Align := alTop;

mainForm.AddNewEvent(btnGiris, tbeOnClick, 'BtnGirisClick');

btnKayit := mainForm.AddNewButton(mainForm, 'btnKayit', 'Kayıt Ol');

btnKayit.Align := alTop;

mainForm.AddNewEvent(btnKayit, tbeOnClick, 'BtnKayitClick');

mainForm.Run;

end.

]]> Tue, 20 May 2025 10:02:06 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1015&PID=2023#2023 <![CDATA[Kod hatası : var mainForm: TclStyleForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1015&PID=2021#2021 Yazar: Nida Güvercin
Konu: 1015
Gönderim Zamanı: 19 Mayıs 2025 Saat 22:21

var

mainForm: TclStyleForm;

lblBaslik, lblKadi, lblSifre: TclLabel;

edtKadi, edtSifre: TclEdit;

btnGiris, btnKayit: TclButton;

ogrenciListesi: TclStringList;

procedure BtnGirisClick;

begin

if (edtKadi.Text = 'ogretmen') and (edtSifre.Text = '1234') then

Clomosy.RunUnit('uAnaSayfa')

else

ShowMessage('Kullanıcı adı veya şifre hatalı.');

end;

procedure BtnKayitClick;

begin

ShowMessage('Kayıt olma özelliği bu sürümde devre dışı.');

end;

begin

ogrenciListesi := TclStringList.Create(nil)

mainForm := TclStyleForm.Create(nil, 'mainForm', true);

mainForm.Fill.Color := '#D6EAF8';

lblBaslik := mainForm.AddNewLabel(mainForm, 'lblBaslik', 'Öğretmen Giriş Ekranı');

lblBaslik.TextSettings.Font.Size := 20;

lblBaslik.Align := alTop;

lblKadi := mainForm.AddNewLabel(mainForm, 'lblKadi', 'Kullanıcı Adı:');

lblKadi.Align := alTop;

edtKadi := TclEdit.Create(mainForm); // sadece 1 parametre

mainForm.clGetChild(edtKadi);

edtKadi.Align := alTop;

lblSifre := mainForm.AddNewLabel(mainForm, 'lblSifre', 'Şifre:');

lblSifre.Align := alTop;

edtSifre := TclEdit.Create(mainForm); // sadece 1 parametre

mainForm.clGetChild(edtSifre);

edtSifre.Align := alTop;

edtSifre.Password := True;

btnGiris := mainForm.AddNewButton(mainForm, 'btnGiris', 'Giriş Yap');

btnGiris.Align := alTop;

mainForm.AddNewEvent(btnGiris, tbeOnClick, 'BtnGirisClick');

btnKayit := mainForm.AddNewButton(mainForm, 'btnKayit', 'Kayıt Ol');

btnKayit.Align := alTop;

mainForm.AddNewEvent(btnKayit, tbeOnClick, 'BtnKayitClick');

mainForm.Run;

end.

--------------------------------------------------------------------

Unit Main: Not enough actual parameters for method 'Create'. Expected 3 parameters.

Source position: 23,1

Clomosy Build : 20241204.102408

--------------------------------------------------------------------

]]> Mon, 19 May 2025 22:21:30 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1015&PID=2021#2021