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" rel="nofollow - 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

}

var

  MyForm : TclForm;

  MainPnl : TclProPanel;

  BtnAdd : TclProButton;

  EdtTask : TclProEdit;

  ListTasks : TclProListView;

void AddTaskToList;

{

  if (EdtTask.Text == '')

  {

    ShowMessage('Lütfen bir ödev giriniz!');

  }

  else

  {

    ShowMessage('Ödev eklendi (Simülasyon): ' + EdtTask.Text);

    EdtTask.Text = ''; 

  }

}

{

  MyForm = TclForm.Create(Self);

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

  

  

  MyForm.Run;

}

Yukarıda yer alan kısımları koda eklediğinde ilgili yerlere yapmak istediğin projeye daha yakın bir çıktı alabilirsin