File library uAnaSayfa: Unit uNotGiris: Not enough actual

parameters for method ‘create’ , Expected 3 parameters.

Source position:23,39 when evaluating instruction CallProc

($FFFFFFFF,$1,$1D90930,$BD6F1A0,’RunUnit’).

Stack content is:

[Integer:351520912,ınteger:351519760,Integer:351518608,Inte

ger:346934656]

Source position:7,31

var

  notForm: TclStyleForm;

  edtOgrenci, edtDers, edtNot: TclEdit;

  btnKaydet: TclButton;

  ogrenciListesi: TStringList; // Listeyi tanımlıyoruz

void BtnKaydetClick;

var

  satir: String;

{

  // Öğrenci, ders ve not bilgilerini alıp birleştiriyoruz

  satir = edtOgrenci.Text + ' ' + edtDers.Text + ' - ' + edtNot.Text;

  // Öğrencileri listeye ekliyoruz

  ogrenciListesi.Add(satir);

  // Kullanıcıya mesaj gösteriyoruz

  ShowMessage('Not kaydedildi: ' + satir);

}

{

  // Listeyi oluşturuyoruz

  ogrenciListesi = TStringList.Create;

  // Formu ve diğer bileşenleri oluşturuyoruz

  notForm = TclStyleForm.Create(Self);

  edtOgrenci = TclEdit.Create(notForm);

  notForm.clGetChild(edtOgrenci);

  edtOgrenci.Text = 'Öğrenci Adı';

  edtOgrenci.Align = alTop;

  edtDers = TclEdit.Create(notForm);

  notForm.clGetChild(edtDers);

  edtDers.Text = 'Ders Adı';

  edtDers.Align = alTop;

  edtNot = TclEdit.Create(notForm);

  notForm.clGetChild(edtNot);

  edtNot.Text = 'Not';

  edtNot.Align = alTop;

  btnKaydet = notForm.AddNewButton(notForm, 'btnKaydet', 'Kaydet');

  btnKaydet.Align = alTop;

  notForm.AddNewEvent(btnKaydet, tbeOnClick, 'BtnKaydetClick');

  // Formu çalıştırıyoruz

  notForm.Run;

}