Clomosy.DBSQLiteQuery.SQL.Text = 'DELETE FROM kartlar WHERE id = ' + silinecekId;

Clomosy.DBSQLiteQuery.OpenOrExecute;

silinecekPanel = TclProPanel(homeForm.FindComponent('kart_' + silinecekId));

if (silinecekPanel <> nil) {

  homeForm.RemoveComponent(silinecekPanel);

}

 

sil butonuna tıkladıgımda silmek istediğim öğe veri tabanından siliyor ancak telefonda geriye gittiğimde tekrardan ekrana geliyor. (o sayfayı kapatıp tekrar girince öğe gözükmüyor)

homeForm: TclForm;

  vertScrollBox: TclVertScrollBox;

  kartPanel, silPanel: TclProPanel;

  lblText: TclProLabel;

  currentId: String;

  btnSil: TclProButton;

  mainPanel: TclProPanel;

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;

    ShowMessage('Kelime silindi.');

   Clomosy.RunUnit('Homebtn');

  }

  except {

    

  }

}

}

{

  homeForm = TclForm.Create(Self);

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

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

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

  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.SetclProSettings(kartPanel.ClProSettings);

    // İngilizce + Türkçe birlikte

    lblText = homeForm.AddNewProLabel(kartPanel, '', '');

    lblText.Align = alClient;

    lblText.Caption =

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

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

    lblText.ClProSettings.FontSize = 16;

    lblText.ClProSettings.FontColor =

      clAlphaColor.clHexToColor('#000000');

    lblText.SetclProSettings(lblText.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('#f4bcbc');

    btnSil.SetclProSettings(btnSil.ClProSettings);

    btnSil.Hint = currentId;

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

    Clomosy.DBSQLiteQuery.Next;

  }

 homeForm.Run;

}