Syntax error


   var
  MyForm: TclForm;
  MainPnl: TclPanel;
  UserEdit, 2011: TclProEdit;
  LoginBtn: TclProButton;
  HeaderLbl: TclLabel;

procedure CheckLogin;
begin
  if (UserEdit.Text = '') or (2011.Text = '') then
  begin
    ShowMessage('Uyarı: Alanlar boş bırakılamaz!');

    MyForm.SetFormColor('#C0392B', '', 0);
  end
  else
  begin
    ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text);

    MyForm.SetFormColor('#27AE60', '', 0);
  end;
end;

begin
  MyForm := TclForm.Create(Self);


  MyForm.SetFormBGImage('https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg');


  MainPnl := MyForm.AddNewPanel(MyForm, 'MainPnl');
  MainPnl.Align := alCenter;
  MainPnl.Width := 300;
  MainPnl.Height := 350;


  HeaderLbl := MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ');
  HeaderLbl.Align := alTop;
  HeaderLbl.Margins.Top := 20;
  HeaderLbl.Height := 30;
  HeaderLbl.TextSettings.Font.Size := 20;

  HeaderLbl.TextSettings.HorzAlign := 1; 


  UserEdit := MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı');
  UserEdit.Align := alTop;
  UserEdit.Margins.Top := 30;
  UserEdit.Margins.Left := 20;
  UserEdit.Margins.Right := 20;
  UserEdit.Height := 45;

  2011 := MyForm.AddNewProEdit(MainPnl, '2011', 'Şifre');
  2011.Align := alTop;
  2011.Margins.Top := 15;
  2011.Margins.Left := 20;
  2011.Margins.Right := 20;
  2011.Height := 45;
  2011.Password := True;


  LoginBtn := MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP');
  LoginBtn.Align := alBottom;
  LoginBtn.Margins.Bottom := 30;
  LoginBtn.Margins.Left := 40;
  LoginBtn.Margins.Right := 40;
  LoginBtn.Height := 50;
  

  MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin');

  MyForm.Run;
end;


selamün aleyküm
kod yazarken hata aldım düzeltemiyorom yardım eder misiniz
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
Mali Demirok Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 10 Saat 20 Dakika Önce Konum: konya Durum: Aktif Değil Puanlar: 2	Mesaj Seçenekleri Yanıt Yaz Alıntı Mali Demirok Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Syntax error Gönderim Zamanı: 10 Saat 14 Dakika Önce Saat 15:57
	var MyForm: TclForm; MainPnl: TclPanel; UserEdit, 2011: TclProEdit; LoginBtn: TclProButton; HeaderLbl: TclLabel; procedure CheckLogin; begin if (UserEdit.Text = '') or (2011.Text = '') then begin ShowMessage('Uyarı: Alanlar boş bırakılamaz!'); MyForm.SetFormColor('#C0392B', '', 0); end else begin ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text); MyForm.SetFormColor('#27AE60', '', 0); end; end; begin MyForm := TclForm.Create(Self); MyForm.SetFormBGImage('https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg'); MainPnl := MyForm.AddNewPanel(MyForm, 'MainPnl'); MainPnl.Align := alCenter; MainPnl.Width := 300; MainPnl.Height := 350; HeaderLbl := MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ'); HeaderLbl.Align := alTop; HeaderLbl.Margins.Top := 20; HeaderLbl.Height := 30; HeaderLbl.TextSettings.Font.Size := 20; HeaderLbl.TextSettings.HorzAlign := 1; UserEdit := MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı'); UserEdit.Align := alTop; UserEdit.Margins.Top := 30; UserEdit.Margins.Left := 20; UserEdit.Margins.Right := 20; UserEdit.Height := 45; 2011 := MyForm.AddNewProEdit(MainPnl, '2011', 'Şifre'); 2011.Align := alTop; 2011.Margins.Top := 15; 2011.Margins.Left := 20; 2011.Margins.Right := 20; 2011.Height := 45; 2011.Password := True; LoginBtn := MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP'); LoginBtn.Align := alBottom; LoginBtn.Margins.Bottom := 30; LoginBtn.Margins.Left := 40; LoginBtn.Margins.Right := 40; LoginBtn.Height := 50; MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin'); MyForm.Run; end; selamün aleyküm kod yazarken hata aldım düzeltemiyorom yardım eder misiniz 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">

kaanl0 Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Kıdemli Üye Kayıt Tarihi: 16 Eylül 2025 Konum: konya Durum: Aktif Değil Puanlar: 167	Mesaj Seçenekleri Yanıt Yaz Alıntı kaanl0 Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 9 Saat 25 Dakika Önce Saat 16:46
	AleykumSelam Clomosy'de kod blokları Begin ile başlayıp end ile bitmez {} ile başlar ve biter. Ayrıca atama operatörü olarak := şeklinde değil = şeklinde kullanırız. Ayrıca bir değişken ismi sayı ile başlayamaz. Kodun düzeltimiş Halini iletiyorum. Başka hata alırsan iletebilirsin var MyForm: TclForm; MainPnl: TclPanel; UserEdit, PassEdit: TclProEdit; // "2011" ismi "PassEdit" olarak değiştirildi LoginBtn: TclProButton; HeaderLbl: TclLabel; void CheckLogin; // procedure yerine void kullanıldı { // begin yerine { kullanıldı if ((UserEdit.Text == '') \|\| (PassEdit.Text == '')) // Karşılaştırma için == ve mantıksal veya için \|\| { ShowMessage('Uyarı: Alanlar boş bırakılamaz!'); MyForm.SetFormColor('#C0392B', '', 0); } else { ShowMessage('Giriş Başarılı! Hoş geldin: ' + UserEdit.Text); MyForm.SetFormColor('#27AE60', '', 0); } } { // Ana blok başlangıcı MyForm = TclForm.Create(Self); // := yerine = kullanıldı MyForm.SetFormBGImage('https://img.freepik.com/free-photo/abstract-digital-grid-background-with-network-connection-concept_53876-124541.jpg'); MainPnl = MyForm.AddNewPanel(MyForm, 'MainPnl'); MainPnl.Align = alCenter; MainPnl.Width = 300; MainPnl.Height = 350; HeaderLbl = MyForm.AddNewLabel(MainPnl, 'HeaderLbl', 'SİSTEM GİRİŞİ'); HeaderLbl.Align = alTop; HeaderLbl.Margins.Top = 20; HeaderLbl.Height = 30; HeaderLbl.TextSettings.Font.Size = 20; HeaderLbl.TextSettings.HorzAlign = palCenter; // Sayısal değer yerine hizalama sabiti kullanıldı UserEdit = MyForm.AddNewProEdit(MainPnl, 'UserEdit', 'Kullanıcı Adı'); UserEdit.Align = alTop; UserEdit.Margins.Top = 30; UserEdit.Margins.Left = 20; UserEdit.Margins.Right = 20; UserEdit.Height = 45; // Değişken adı rakamla başlayamazdı, PassEdit olarak güncellendi PassEdit = MyForm.AddNewProEdit(MainPnl, 'PassEdit', 'Şifre'); PassEdit.Align = alTop; PassEdit.Margins.Top = 15; PassEdit.Margins.Left = 20; PassEdit.Margins.Right = 20; PassEdit.Height = 45; PassEdit.Password = True; LoginBtn = MyForm.AddNewProButton(MainPnl, 'LoginBtn', 'GİRİŞ YAP'); LoginBtn.Align = alBottom; LoginBtn.Margins.Bottom = 30; LoginBtn.Margins.Left = 40; LoginBtn.Margins.Right = 40; LoginBtn.Height = 50; MyForm.AddNewEvent(LoginBtn, tbeOnClick, 'CheckLogin'); MyForm.Run; } // end yerine } kullanıldı. 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">