Discussion :

[fomazou]

j'aimerai pouvoir editer un seul caractère dans une cellule stringrid. c'est dire qu'un seul caratère dans une cellule, si plusieurs caractères à la frappe le suivant s'écrit dans la cellule suivante ainsi de suite. et que le Backspace puisse supprimer le caractère précédant.
merci

[bandit boy]

Salut,
Solution de fortune:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   X = 1;
   Y = 1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1KeyPress(TObject *Sender, char &Key)
{
   int i=0;
   if(StringGrid1->Cells[X][Y] != "") //si la case n'est pas vide
   {
       if(Key != 8)
       {
           for(i=X; i<StringGrid1->ColCount; i++)
           {
               if(StringGrid1->Cells[i][Y] == "")
               {
                   StringGrid1->Cells[i][Y] = Key;
                   Key = NULL;
                   break;
               }
           }
       }
       else
       {
           for(i=StringGrid1->ColCount; i >= 1; i--)
           {
               if(StringGrid1->Cells[i][Y] != "")
               {
                   StringGrid1->Cells[i][Y] = "";
                   Key = NULL;
                   break;
               }
           }
       }
   }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1SelectCell(TObject *Sender, int ACol,
      int ARow, bool &CanSelect)
{
   X = ACol;
   Y = ARow;
}

Tu utilises le OnSelect pour voir dans quelle case tu es, et le On KeyPress pour choisir ou placer la lettre.
Dans le cas d'un ajout, tu le mets à la dernière colone de la ligne à laquelle se trouve la case sélectionné, dans le cas d'une supression, tu retire le dernier de cette ligne ( à la dernière case écrite)