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.