merhaba, flipkart kısmında sorun yaşıyorum, kartpaneline bastığımda uygulamadan atıyor

var

  homeForm: TclForm;

  vertScrollBox: TclVertScrollBox;

  panel, kartPanel, silPanel, bottomPanel, frontPanel, backPanel: TclProPanel;

  lblText,lblTurkish,lblEnglish: TclProLabel;

  currentId: String;

  btnSil,btnHome, btnIstatistik,btnOyun,btnAdd: TclProButton;

  mainPanel: TclProPanel;

  

void FlipKart

var

  senderPanel, front, back: TclProPanel;

  id: String;

{

  senderPanel = TclProPanel(homeForm.ClSender);

  id = senderPanel.Hint;

  front = Clomosy.FindComponent('front_' + id);

  back  = Clomosy.FindComponent('back_' + id);

  if front.Visible {

    front.Visible = False;

    back.Visible = True;

  } else {

    front.Visible = True;

    back.Visible = False;

  }

}

  

void Addtiklandi;

{

  Clomosy.RunUnit('Addbtn');

}

void hometiklandi;

{

  Clomosy.RunUnit('Homebtn');

}

void istatistiktiklandi;

{

  Clomosy.RunUnit('Istatistikbtn');

}

void btnoyuntiklandi;

{

  Clomosy.RunUnit('Oyunbtn');

}

void SilButonuTiklandi

var

  btn: TclProButton;

  silinecekId: String;

{

  btn = TclProButton(homeForm.ClSender);

  silinecekId = btn.Hint;

  try {

    Clomosy.DBSQLiteQuery.Close;

    Clomosy.DBSQLiteQuery.SQL.Text =

      'DELETE FROM kartlar WHERE id = ' + silinecekId;

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    

   Clomosy.RunUnit('Homebtn');

  }

  except {

    

  }

}

}

{

  homeForm = TclForm.Create(Self);

  homeForm.clSetCaption('Kayıtlı Kelimeler');

  homeForm.SetFormBGImage('https://i.imgur.com/fPwWs0H.jpeg');

  panel = homeForm.AddNewProPanel(homeForm, 'panel');

  panel.Align=alClient;

  

  

  vertScrollBox = homeForm.AddNewVertScrollBox(panel, '');

  vertScrollBox.Align = alClient;

  Clomosy.DBSQLiteQuery.Close;

  Clomosy.DBSQLiteQuery.SQL.Text =

    'SELECT id, english, turkish FROM kartlar';

  Clomosy.DBSQLiteQuery.OpenOrExecute;

  while (not Clomosy.DBSQLiteQuery.Eof) {

    currentId = Clomosy.DBSQLiteQuery.FieldByName('id').AsString;

    kartPanel = homeForm.AddNewProPanel(vertScrollBox, 'kart_' + currentId);

    kartPanel.Align = alTop;

    kartPanel.Height = 100;

    kartPanel.Margins.Bottom = 10;

    kartPanel.ClProSettings.BackGroundColor =

    clAlphaColor.clHexToColor('#e6e6e6');

    kartPanel.ClProSettings.RoundHeight = 10;

    kartPanel.ClProSettings.RoundWidth = 10;

    kartPanel.clProSettings.IsRound=True;

    kartPanel.clProSettings.RoundHeight=20;

    kartPanel.clProSettings.Roundwidth=20;

    kartPanel.SetclProSettings(kartPanel.ClProSettings);

     // Ön Yüz

   

    frontPanel = homeForm.AddNewProPanel(kartPanel, 'front_' + currentId);

    frontPanel.Align = alClient;

    frontPanel.Visible = True;

    frontPanel.Hint = currentId;

    lblEnglish = homeForm.AddNewProLabel(frontPanel, '', '');

    lblEnglish.Align = alCenter;

    lblEnglish.Caption =

      'EN: ' + Clomosy.DBSQLiteQuery.FieldByName('english').AsString;

    lblEnglish.ClProSettings.FontSize = 18;

    lblEnglish.ClProSettings.FontColor =

      clAlphaColor.clHexToColor('#000000');

    lblEnglish.SetclProSettings(lblEnglish.ClProSettings);

    // Arka Yüz

    backPanel = homeForm.AddNewProPanel(kartPanel, 'back_' + currentId);

    backPanel.Align = alClient;

    backPanel.Visible = False;

    backPanel.Hint = currentId;

    lblTurkish = homeForm.AddNewProLabel(backPanel, '', '');

    lblTurkish.Align = alCenter;

    lblTurkish.Caption =

      'TR: ' + Clomosy.DBSQLiteQuery.FieldByName('turkish').AsString;

    lblTurkish.ClProSettings.FontSize = 18;

    lblTurkish.ClProSettings.FontColor =

      clAlphaColor.clHexToColor('#000000');

    lblTurkish.SetclProSettings(lblTurkish.ClProSettings);

    // Sil Panel

    silPanel = homeForm.AddNewProPanel(kartPanel, '');

    silPanel.Align = alRight;

    silPanel.Width = 60;

    btnSil = homeForm.AddNewProButton(silPanel, '', 'Sil');

    btnSil.Align = alClient;

    btnSil.ClProSettings.BackGroundColor =

      clAlphaColor.clHexToColor('#660000');

    btnSil.SetclProSettings(btnSil.ClProSettings);

    btnSil.Hint = currentId;

    homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi');

    homeForm.AddNewEvent(btnSil, tbeOnClick, 'SilButonuTiklandi');

    homeForm.AddNewEvent(frontPanel, tbeOnClick, 'FlipKart');

    homeForm.AddNewEvent(backPanel, tbeOnClick, 'FlipKart');

    Clomosy.DBSQLiteQuery.Next;

  }

bottomPanel=homeForm.AddNewProPanel(panel,'bottomPanel');

bottomPanel.Align=alMostBottom;

bottomPanel.Align=alHorizontal;

bottomPanel.Height=50;

bottomPanel.Width=300;

bottomPanel.clProSettings.RoundHeight=20;

bottomPanel.clProSettings.Roundwidth=20;

bottomPanel.clProSettings.IsTransparent =False;

bottomPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

bottomPanel.clProSettings.BorderWidth = 2;

bottomPanel.SetclProSettings(bottomPanel.clProSettings);

// home

btnHome = homeForm.AddNewProButton(bottomPanel, 'btnHome', '');

btnHome.Align = alLeft;

btnHome.margins.left=20;

btnHome.margins.bottom=10;

btnHome.Width = 70;

btnHome.Height = 70;

btnHome.clProSettings.IsRound = True;

btnHome.clProSettings.RoundHeight = 10;

btnHome.clProSettings.RoundWidth = 10;

btnHome.SetclProSettings(btnHome.clProSettings);

homeForm.SetImage(btnHome,'https://i.imgur.com/FfEKaFY.png'); 

homeForm.AddNewEvent(btnHome, tbeOnClick, 'hometiklandi');

btnAdd = homeForm.AddNewProButton(bottomPanel, 'btnAdd', '');

btnAdd.Align = alLeft;

btnAdd.margins.left=20;

btnAdd.margins.bottom=10;

btnAdd.Width = 70;

btnAdd.Height = 70;

btnAdd.clProSettings.IsRound = True;

btnAdd.clProSettings.RoundHeight = 10;

btnAdd.clProSettings.RoundWidth = 10;

btnAdd.SetclProSettings(btnHome.clProSettings);

homeForm.SetImage(btnAdd,'https://i.imgur.com/bB8i9zb.png'); 

homeForm.AddNewEvent(btnAdd, tbeOnClick, 'Addtiklandi');

btnOyun = homeForm.AddNewProButton(bottomPanel, 'btnOyun', '');

btnOyun.Align = alLeft;

btnOyun.margins.left=20;

btnOyun.margins.bottom=10;

btnOyun.Width = 70;

btnOyun.Height = 70;

btnOyun.clProSettings.IsRound = True;

btnOyun.clProSettings.RoundHeight = 10;

btnOyun.clProSettings.RoundWidth = 10;

btnOyun.SetclProSettings(btnOyun.clProSettings);

homeForm.SetImage(btnOyun,'https://i.imgur.com/ewHakWR.png');

homeForm.AddNewEvent(btnOyun, tbeOnClick, 'btnoyuntiklandi');

btnIstatistik = homeForm.AddNewProButton(bottomPanel, 'btnIstatistik', '');

btnIstatistik.Align = alLeft;

btnIstatistik.margins.left=20;

btnIstatistik.margins.bottom=10;

btnIstatistik.Width = 70;

btnIstatistik.Height = 70;

btnIstatistik.clProSettings.IsRound = True;

btnIstatistik.clProSettings.RoundHeight = 10;

btnIstatistik.clProSettings.RoundWidth = 10;

btnIstatistik.SetclProSettings(btnIstatistik.clProSettings);

homeForm.SetImage(btnIstatistik,'https://i.imgur.com/n0uCd4p.png');

homeForm.AddNewEvent(btnIstatistik, tbeOnClick, 'istatistiktiklandi');

 homeForm.Run;

 

}

Merhaba Dilara,

Sorguyu veri tabanına bağlamadığını görüyorum, bu şekilde bağlayabilirsin:

Clomosy.DBSQLiteConnect(Clomosy.appfilespath + 'Veritabaniismi.db', '');

Ayrıca,

Umarım yardımcı olur. İyi çalışmalar.