Discussion :

[senv33]

Bonjour,

Le titre n'est peut être pas très explicite. Je voudrais que le curseur pour éditer du texte vienne se placer dans une cellule spécifique d'un stringGrid après un clic sur un bouton.

Bonus? : En fait, la cellule spécifique concerne la dernière ligne ajoutée et une colonne qui sera toujours la même. Existe-t-il un moyen de connaître la dernière ligne ajoutée dans le stringGrid et de garder le curseur dessus sachant qu'à chaque ajout, la grille est triée alphabétiquement aussitôt après selon une colonne. (Donc la dernière ligne de la grille n'est pas forcément la dernière ligne ajoutée).

Pouvez-vous m'aider s'il vous plaît ?


Merci d'avance.

[Delphi-ne]

Il faut utiliser les propriété Row et Col de la TStringGrid

En leur affectant une valeur on se positionne sur une cellule donnée.
Cela devrait répondre au point 1

[senv33]

ok, merci pour ta réponse ! ça m'aide déjà

est-ce que quelqu'un peut m'aider un peu pour la suite ? s'il vous plait ?

[senv33]

Apparemment il faut utiliser les options goEditing et goAlwaysShowEditor...

Mais comment dois-je m'y prendre pour que, lorsque je clique sur le bouton "ajouter" (qui ajoute une ligne dans le stringGrid), à la ligne ajoutée et à une colonne donnée, la cellule passe en mode édition ?

J'ai essayé de rajouter le code suivant à la suite du code du bouton :

Code :

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

GrilleSaisieProjet.Options:=GrilleSaisieProjet.Options+[goEditing,goAlwaysShowEditor];

mais je dois mal l'utiliser


Pouvez-vous me guider s'il vous plaît ?

[Charly910]

Bonjour,

essaye de voir si la dernière ligne de la grille n'est pas donnée par

Code :

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

   Row := StringGrid1.RowCount - 1  ;

après ton tri.

En plus tu as TopRow qui désigne la première ligne visible et VisibleRowCount qui donne le nombre de ligne à l'écran (cela te permet d'atteindre la dernière ligne affichée en bas de ta grille)

A+

Charly

[senv33]

merci pour ta réponse mais je sais déjà comment avoir la dernière ligne de la grille, le problème c'est que j'aimerai récupérer la dernière ligne ajoutée, qui n'est pas forcément la même :/

[Cl@udius]

Salut

C'est au niveau de ton tri qu'il faut que tu conserves le nouvel emplacement de la ligne insérée.

Ou bien effectuer une recherche après tri de ta ligne si tu disposes d'un critère permettant de l'identifier.

@+ Claudius

[senv33]

voici le code de mon tri :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 //tri du tableau selon le libelle
  with Grille do
  begin
    for i:=2 to rowcount-3 do
      for j:=i+1 to rowcount-2 do
        if (cells[1,i]>cells[1,j])  then
        begin
          S := rows[i].text;
          rows[i].text := rows[j].text;
          rows[j].text := S;
        end;

Comment dois-je m'y prendre ?

[Cl@udius]

Avant le tri, la ligne ajoutée est bien en dernière position ?

[senv33]

oui elle se situe à la ligne RowCount -1

[Cl@udius]

Bon ben déjà tu as un soucis, ton tri ne prends pas en compte la dernière ligne (ni la première d'ailleurs Row = 1).

[senv33]

non non je l'ai bien géré ça c'est parce que j'ai des en-têtes de colonnes et à la fin de mon tableau j'affiche d'autres informations aussi.

bref mon tri fonctionne très bien !

[Cl@udius]

bref mon tri fonctionne très bien !

OK

Pendant le tri il suffit de conserver dans une variable l'évolution de la position de la dernière ligne.

Test ceci:

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
var
  I, J, NewRow: Integer;
  S: string;
begin
  with Grille do
  begin
    NewRow := RowCount - 2;
    for I := 2 to RowCount - 3 do
      for J := I + 1 to RowCount - 2 do
        if (Cells[1, I] > Cells[1, J])  then
        begin
          if I = NewRow then
            NewRow := J
          else if J = NewRow then
            NewRow := I;
          S := Rows[I].Text;
          Rows[I].Text := Rows[J].Text;
          Rows[J].Text := S;
        end;
    // ShowMessage(IntToStr(NewRow));
    Col := 1;
    Row := NewRow; // Se rendre sur la nouvelle position après tri.
  end;
end;

@+ Claudius

[edam]

salut, pourquoi tu casse ta tête avec stringgrid?
TclientDataset+dbgrid, feront tout pour toi (affichage, insertion,modification, trie) 5 min de travail, et en plus tu peut enregistré tes données rapidement dans un fichier;
http://delphi.developpez.com/sources/?page=sec_app_bdd
http://www.jcolibri.com/articles/bdd...taset_xml.html
bon dev

[senv33]

@ Cl@udius : merci beaucoup, ça fonctionne très bien

@ edam : merci, je le saurai pour la prochaine fois là, je vais continuer sur mon stringGrid, j'en ai bientôt fini !

[senv33]

j'ai encore un petit problème..

Vu qu'après un clic sur mon bouton, la cellule concernée est sélectionnée, j'aimerai qu'elle passe également au mode édition pour ainsi éviter de cliquer une fois dessus.

Pour se faire, j'ai essayé de mettre ceci après:

Code :

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

1
2
3
4
5
if NewRow <> Grille.RowCount-2 then
begin
    SetFocus;
    EditorMode := True;
end;

mais j'ai une erreur : le contenu de mon avant dernière ligne

n'est pas une valeur en virgule flottante correcte

. j'ai fait en sorte que cette ligne du tableau, qui est fusionnée sur toutes les colonnes, ne puisse être ni sélectionnée ni éditée.

Comment puis-je résoudre ce problème s'il vous plaît ?

[edam]

@ edam : merci, je le saurai pour la prochaine fois là, je vais continuer sur mon stringGrid, j'en ai bientôt fini !

je veux pas te découragé, mais je crois pas..!! , car j'ai déjà passé par là
dans tout les cas c'est un bon exercice, pour comprendre le TStringrid, son fonctionnement et ces évènements, bon dev

[senv33]

avec ce code :

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
var
  I, J, NewRow: Integer;
  S: string;
begin
  with Grille do
  begin
    NewRow := RowCount - 2;
    for I := 2 to RowCount - 3 do
      for J := I + 1 to RowCount - 2 do
        if (Cells[1, I] > Cells[1, J])  then
        begin
          if I = NewRow then
            NewRow := J
          else if J = NewRow then
            NewRow := I;
          S := Rows[I].Text;
          Rows[I].Text := Rows[J].Text;
          Rows[J].Text := S;
        end;
    Col := 1;
    Row := NewRow; // Se rendre sur la nouvelle position après tri.
  end;
end;

indice de grille hors limite

: ce problème survient quand je clique sur une ligne de mon stringGrid et qu'ensuite je veuille afficher un autre stringGrid sur lequel il n'y a pas tant de ligne et donc où le numéro de ligne n'apparaît pas.

en utilisant le débugger, je crois que ça situe vers le :

Code :

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

 if (Cells[1, I] > Cells[1, J])  then

Vous pouvez m'éclairer ?

[Cl@udius]

Re,

Je ne vois pas très bien le rapport avec le 2° StringGrid pour l'instant.
Tu effectues ce tri également sur le 2° ?

[senv33]

Re,

je me suis mal exprimé :S

en fait c'est lorsque j'affiche de nouvelles données sur le même stringGrid et où le nombre de ligne est moins important.

exemple : je clique sur la 17e ligne de mon stringGrid, ensuite je change les données à l'intérieur de mon stringGrid, il n'y a plus que 10 lignes et du coup avant l'affichage des données, j'ai cette erreur !