Discussion :

[dekalima]

Bonjour,

Je souhaite supprimer une ligne dans un TStringGrid en fonction de la position de la position du curseur.
J'ai un code mais il me supprime toujours la ligne la plus en haut dans le StringGrid,
Ce que je voudrais moi, c'est que si je clique sur le premier champ de la quatrième ligne par exemple, il me supprime bien la quatrième ligne intégralement...

Voici le code que j'ai pour le moment:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
void __fastcall TForm1::Button2Click(TObject *Sender)
{
      int IndexLigne;
      int numLigne=0;
  for(IndexLigne=numLigne; IndexLigne<(AdvStringGrid1->RowCount-1); IndexLigne++)
  {
    AdvStringGrid1->Rows[IndexLigne] = AdvStringGrid1->Rows[IndexLigne+1];
  }
  AdvStringGrid1->RowCount--;
}

La suppression se déclenche quand je clique sur le bouton

[kurul1]

Regarde du coté de la fonction DeleteRow je crois que tu lui passes l'index de ta ligne et il l'a détruit

[dekalima]

Je trouve pas de fonction DeleteRow dans TStringGrid

[kurul1]

Autant pour moi DSL elle n'est pas accessible pour une TStringGrid, j'aurais du vérifier avant de poster

J'ai vu que tu peux supprimer toutes les chaines pour une Row (En appelant Delete(IndexCols) sur une Row) mais après pour décaler tout ce qui suit je ne vois pas comment faire sinon de reconstruire complètement ta StringGrid en enlevant la Row en question.

Il y a surement plus simple

[dekalima]

Yes, je vais attendre pour voir si d'autres membres ont une idée...

C'est ça le problème quand on utilise un TStringGrid rempli à partir d'un fichier.txt, avec MYSQL il suffit d'une simple requête pour réactualiser le tableau...
mais là je suis un peu dans le brouillard !!

[dekalima]

Bon en fait, ça a l'air de marcher avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
void __fastcall TForm1::AdvStringGrid1ContextPopup(TObject *Sender,
      TPoint &MousePos, bool &Handled)
{
  int i;
  int nbLigne = AdvStringGrid1->Selection.Bottom - (AdvStringGrid1->Selection.Top-1);
  for(i=0; i<nbLigne; i++)
  {
    SupprimerLigne(AdvStringGrid1->Selection.Top,AdvStringGrid1);
  }
 
}
//---------------------------------------------------------------------------
 void TForm1::SupprimerLigne(int numLigne, TStringGrid * monStringGrid)
{
  int IndexLigne;
  for(IndexLigne=numLigne; IndexLigne<(monStringGrid->RowCount-1); IndexLigne++)
  {
    monStringGrid->Rows[IndexLigne] = monStringGrid->Rows[IndexLigne+1];
  }
  monStringGrid->RowCount--;
}
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
   SupprimerLigne(AdvStringGrid1->Selection.Top,AdvStringGrid1);
}

Mais faut que je le bosse car je l'ai trouvé et j'ai pas encore tout saisi

[sat83]

Pour supprimer une ligne (ou une colonne) dans un StringGrid, la reponse est dans la FAQ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  //déclaration d'une classe où DeleteRow est public
  class TPublicStringGrid: public TCustomGrid
  {
    public:
        using TCustomGrid::DeleteRow;
        using TCustomGrid::DeleteColumn;
  };
 // supprime la ligne n°2 (donc la troisième ligne, la première étant la ligne n°0) :
 ((TPublicStringGrid*)StringGrid1)->DeleteRow(2);
}