var

MyForm : TclForm;

MainPnl : TclProPanel

Ekle : TClProButton

Edt1, SifreEdt : TclProEdit

remember : TCLCheckBox

forget : TClProButton

list : TClProListView

void controlclick;

{

  if ((Edt1.Text =='') || (SifreEdt.Text==''))

  ShowMessage('Kullanıcı adı ve ya şifreniz boş olamaz');

  

  if((Edt1.Text =='admin') || (SifreEdt.Text=='12345'))

  ShowMessage('Giriş Başarılı');

  

  else 

  ShowMessage('Giriş Başarısız');

}

{

  MyForm = TclForm.Create(self);

  MyForm.SetFormColor('#c2dcff','#0052bd',clGHorizontal);

  MyForm.SetFormBGImage('https://resmim.net/cdn/2026/03/09/CMBuE1.jpg');

  

  MainPnl = MyForm.AddNewProPanel(MyForm, 'MainPnl');

  MainPnl.Align = alCenter;

  MainPnl.Height = 350;

  MainPnl.Width = 400;

  MainPnl.clProSettings.Backgroundcolor = clAlphacolor.clHextoColor ('#001a9e')

  MainPnl.clProSettings.Bordercolor = clAlphacolor.clHextoColor ('#2e5a94')

  MainPnl.clProSettings.BorderWidth = 3; 

  MainPnl.clProSettings.RoundHeight = 22;

  MainPnl.clProSettings.RoundWidth = 22;

  MainPnl.SetClproSettings(MainPnl.clProSettings)

  

  Edt1 = MyForm.AddNewProEdit(MainPnl, 'Edt1', 'Ödev Ekle');

  Edt1.Align = alTop;

  Edt1.Height = 50;

  Edt1.Width = 100;

  Edt1.margins.top = 20

  Edt1.margins.right = 20

  Edt1.margins.left = 20

  Edt1.clProSettings.Bordercolor = clAlphacolor.clHextoColor('#002657')

  Edt1.clProSettings.BorderWidth= 3;

  Edt1.clProSettings.RoundHeight = 22;

  Edt1.clProSettings.RoundWidth = 22;

  Edt1.SetClproSettings(Edt1.clProSettings)

  

  

  list = MyForm.AddNewListView(MainPnl,'OdevList');

  list.Align = alBottom;

  list.Height = 50;

  list.Width = 100;

  list.margins.top = 20

  list.margins.right = 20

  list.margins.left = 20

 

  

Ekle=MyForm.AddNewProButton(MainPnl, 'Ekle', 'Ekle');

Ekle.Align = alTop;

Ekle.Height = 50;

Ekle.Width = 50;

Ekle.margins.right = 30

Ekle.margins.top = 20

Ekle.margins.left = 30

Ekle.clProSettings.Bordercolor = clAlphacolor.clHextoColor('#00178a')

Ekle.clProSettings.BorderWidth= 3;

Ekle.clProSettings.RoundHeight = 22;

Ekle.clProSettings.RoundWidth = 22;

Ekle.SetClproSettings(Ekle.clProSettings) 

MyForm.AddNewEvent(Ekle,tbeOnClick,'controlclick');

  MyForm.Run

}