Kod hatası

   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
--------------------------------------------------------------------

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: 2	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ı: 6 Saat 19 Dakika Önce 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 --------------------------------------------------------------------