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

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

Kodun çalışır hali: