Bir Proje ve ödev takipçisi yapmak istiyorum


   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
}
https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Ensare Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 3 Saat 54 Dakika Önce Konum: Afyon Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı Ensare Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Bir Proje ve ödev takipçisi yapmak istiyorum Gönderim Zamanı: 3 Saat 22 Dakika Önce Saat 14:11
	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 } https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">