Discussion :

[naute]

Bonjour ,

est-il possible de sélectionner, par logiciel, une cellule précise d'un TStringList, comme on peut la sélectionner en cliquant dessus avec la souris. En gros, je voudrais me déplacer dans la grille avec les touches fléchées et/ou passer automatiquement à la cellule suivante en appuyant sur la touche <ENTER>. J'ai cherché une fonction du genre TStringList.SelectCell[X,Y] mais je n'ai rien trouvé. Et je n'arrive pas à trouver une astuce pour le faire .

Si quelqu'un a une idée, merci d'avance pour sa réponse.

Amicalement,

naute.

[ThWilliam]

Bonjour,

Je suppose que tu parles de TStringGrid et non de TStringList.
A vrai dire, je ne comprends pas ta question, pcq le TStringGrid réagit aux flèches de direction et touche Enter, à condition évidemment que le StringGrid soit focalisé !
La touche Enter a un comportement différent selon les options du grid.
Fais un test en modifiant les options : goEditing, goAlwaysShowEditor, goDrawFocusSelected...

Que veux-tu faire exactement ?

Cordialement
Thierry

[OR34a]

Bonjour ,

est-il possible de sélectionner, par logiciel, une cellule précise d'un TStringList, comme on peut la sélectionner en cliquant dessus avec la souris. En gros, je voudrais me déplacer dans la grille avec les touches fléchées et/ou passer automatiquement à la cellule suivante en appuyant sur la touche <ENTER>. J'ai cherché une fonction du genre TStringList.SelectCell[X,Y] mais je n'ai rien trouvé. Et je n'arrive pas à trouver une astuce pour le faire .

Si quelqu'un a une idée, merci d'avance pour sa réponse.

Amicalement,

naute.

Bonjour,

L'accès à une cellule d'un stringGrid est possible par l'instruction suivante :

Code :

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

StrGrid_Rapp.Cells[i , j] ;

ou
StrGrid_rapp est le nom du Stringrid concerné.
La propriété Cells permet l'accès au tableau constitué par les diverses cellule du Stringrid
i est le numéro de colonne
j est le numéro de ligne

Attention la première ligne ou colonne portent le n° 0

Généralement il faut gérer tout cela dans une boucle sur i - j pour parcourir le tableau .

J'espère que cette réponse vous sera utile.

[Jipété]

Salut,

i est le numéro de colonne
j est le numéro de ligne

Truc mnémotechnique : utiliser c, r pour column, row

[naute]

Bonjour,
Je suppose que tu parles de TStringGrid et non de TStringList.

Oui, bien sûr. Il commençait à se faire tard!

A vrai dire, je ne comprends pas ta question, pcq le TStringGrid réagit aux flèches de direction et touche Enter, à condition évidemment que le StringGrid soit focalisé !
La touche Enter a un comportement différent selon les options du grid.
Fais un test en modifiant les options : goEditing, goAlwaysShowEditor, goDrawFocusSelected...

goEditing, goAlwaysShowEditor, goDrawFocusSelected sont toutes les trois à True.
Les touches fléchées me permettent de me déplacer dans la colonne, mais pas dans la rangée. En haut = à gauche et en bas = à droite. Je peux monter et descendre, mais pas aller à droite ou à gauche. La touche <Enter> n'a aucun effet.
Mon TStringGrid est celui du paquet "Solution" (TLSStrinGrid) fourni par Code Typhon mais il est directement dérivé de celui fourni par Lazarus. Je l'utilise parce qu’il fournit quelques fonctionnalités supplémentaires, notamment la suppression d'une ligne de la grille.

Que veux-tu faire exactement ?
Thierry

J'aimerais que la saisie, dans chaque cellule, ne nécessite pas l'utilisation de la souris. J'ai, par exemple, des CheckBox(s) dans ma grille, et j'aimerais pouvoir y accéder avec les touches fléchées et les positionner avec la touche <Enter>.

L'accès à une cellule d'un stringGrid est possible par l'instruction suivante :

Code :

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

StrGrid_Rapp.Cells[i , j] ;

C'est vrai pour lire ou écrire une valeur dans la cellule, mais pas pour sélectionner la cellule et pour y saisir une valeur. Enfin, sauf erreur.

Truc mnémotechnique : utiliser c, r pour column, row

Oui, et d'ailleurs, quand j'ai écrit TStringList.SelectCell[X,Y], j'aurais du écrire TStringList.SelectCell[aCol,aRow]: ça aurait fait plaisir à Stéphane (Collaro) (pas sûr de l'orthographe ).

Merci beaucoup pour vos réponses,
amicalement,

naute

[Jipété]

goEditing, goAlwaysShowEditor, goDrawFocusSelected sont toutes les trois à True.

goEditing suffit pour que <Enter> active l'éditeur dans la cellule sélectionnée.

Les touches fléchées me permettent de me déplacer dans la colonne, mais pas dans la rangée. En haut = à gauche et en bas = à droite. Je peux monter et descendre, mais pas aller à droite ou à gauche. La touche <Enter> n'a aucun effet.

Le TStringgrid de base de mon Lazarus 1.4.0 posé sur une bête form, F9 et en avant, les 4 flèches pour se déplacer dans les 4 directions, et <Enter> pour activer l'éditeur, après avoir passé goEditing à True et hop !, ça le fait.

Mon TStringGrid est celui du paquet "Solution" (TLSStrinGrid) fourni par Code Typhon mais il est directement dérivé de celui fourni par Lazarus. Je l'utilise parce qu’il fournit quelques fonctionnalités supplémentaires, notamment la suppression d'une ligne de la grille.
J'aimerais que la saisie, dans chaque cellule, ne nécessite pas l'utilisation de la souris. J'ai, par exemple, des CheckBox(s) dans ma grille, et j'aimerais pouvoir y accéder avec les touches fléchées et les positionner avec la touche <Enter>.

Ah ben vi, si tu compliques les choses, on va pas y arriver

[naute]

Ah ben vi, si tu compliques les choses, on va pas y arriver

Eh oui! Je crois encore au Père Noël. Ce n'est pourtant pas la première fois que je me fais avoir avec un composant exotique.
Je n'arrive pas à comprendre pourquoi, lorsqu'on dérive un composant pour y ajouter des fonctionnalités, on en enlève d'autres. Ou alors une bête erreur, peut-être, dans la publication des procédures? Mais, en même temps, si on ne veut pas les changer, il n'y a qu'à pas y toucher. Cela prouve, en tout cas (ou en tous cas, c'est selon ) que le composant n'a pas (ou mal) été testé.
J'ai effectivement mis un TStrinGrid standard et, évidemment , ça fonctionne!
Je vais donc bricoler une routine pour supprimer des lignes puisque la fonction n'existe pas dans TStringGrid.
C'est dommage car TLSStringGrid offre des fonctionnalités supplémentaires réellement intéressantes, notamment en ce qui concerne la présentation. Cela peut paraître secondaire, mais quand on peut améliorer l'esthétique, pourquoi s'en priver?

Par contre, je ne sais toujours pas comment sélectionner une cellule particulière par logiciel. C'est forcément possible puisqu'un click de la souris sur une cellule la sélectionne, et il ne fait que déclencher un évènement qui lance une routine. C'est le principe de cette routine que j'aimerais bien connaître, si elle n'est pas trop complexe.

[inforock]

Bonjour,

Je viens de faire un test avec le composant TLSStringGrid et cela semble fonctionner correctement : aussi bien les flèches de directions (les 4) qui permettent de se déplacer de cellule en cellule dans la grille (haut + bas + gauche + droite) que la touche "Enter" qui fait se déplacer sur la cellule suivante.

Dans les options, j'ai mis goRowSelect à False et goAlwaysShowEditor + goDrawFocusSelected + goEditing à True.

Peut-être est-ce dû à l'option goRowSelect qui est resté à True ?

J'utilise CodeTyphon Version 5.4

Cdt

Laurent

[ThWilliam]

Bonjour.

Plus besoin de bricoler une procédure pour supprimer une ligne, elle existe dans le TStringGrid de Lazarus (v 1.4) :

Code :

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

StringGrid.DeleteRow(index_ligne)

Par contre, je ne sais toujours pas comment sélectionner une cellule particulière par logiciel

Simplement en utilisant les propriétés Col et Row

Code :

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

1
2
3
4
5
with StringGrid1 do
begin
    Col:= 2;
    Row:= 3;
end;

Pour améliorer l'esthétique, tu peux faire beaucoup de choses avec les événements OnDrawCell et OnPrepareCanvas.
Y compris simuler la petite case d'un checkbox.

Cordialement
Thierry

[naute]

Bon! Alors d'abord, je présente mes plus plates excuses aux développeurs du composant en question. En mettant à True l'option goRelaxedRowSelect, le déplacement avec les touches fléchées fonctionne. Il est vrai que je n'avais pas testé toutes les options. Oui mais bon!!! Les composants ne sont pas documentés. Vu le temps passé à savoir comment ils fonctionnent, on aurait aussi vite fait de les développer soi-même. Non ! Je plaisante, mais comme je l'ai dit sur un autre post, l'absence de documentation ou d'aide reste un sacré frein à l'utilisation d'un composant que quelqu'un a mis beaucoup de temps à développer.

Plus besoin de bricoler une procédure pour supprimer une ligne, elle existe dans le TStringGrid de Lazarus (v 1.4) :

Code :

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

StringGrid.DeleteRow(index_ligne)

Alors là, je ne vois pas comment je suis passé à coté ! J'ai dû rester sur le StringGrid de Delphi 7 qui ne possède pas cette méthode.

Simplement en utilisant les propriétés Col et Row

Code :

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

1
2
3
4
5
6
 
  with StringGrid1 do
  begin
    Col:= 2;
    Row:= 3;
  end;

Ben voui! Tout simplement! A postériori, ça semble évident.

Peut-être est-ce dû à l'option goRowSelect qui est resté à True ?

Tout à fait: En mettant goRowSelect à False, et quelque soit le positionnement de goRelaxedRowSelect, le déplacement fonctionne! Il faut avouer que l'action de certaines options n'est pas toujours évident. Du moins pour moi. Par contre, ma touche <Enter> ne fait toujours rien (la fainéante). Mais à présent, je pense qu'il doit s'agir d'une option mal choisie.

Il me reste deux problèmes à solutionner: L'entrée automatique en mode édition de la cellule sélectionnée sans avoir à cliquer sur la grille et le positionnement des CheckBox(s) avec une touche du clavier plutôt qu'à la souris.

Mais déjà, grand merci à tous,

naute

[naute]

Pour sélectionner ou désélectionner la CheckBox d'une StringGrid à l'aide d'une touche du clavier, ce n'est finalement pas bien compliqué:

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
 
procedure TFiche.GrilleDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Col,Row: LongInt;
begin
  //On récupère les coordonnées de la cellule sélectionnée
  Col := Grille.Col;    
  Row := Grille.Row;
  //Quand on appuie sur la touche <Enter> (13), par exemple
  if Key = 13 then
  begin   //On bascule la valeur de la cellule entre '1' et '0' ('1' = CheckBox sélectionnée, '0' = CheckBox désélectionnée, valeurs par défaut)
    if Grille.Cells[Col,Row] = '1' then Grille.Cells[Col,Row] := '0' else Grille.Cells[Col,Row] := '1';
  end;
end;

Reste l'entrée automatique en mode édition, mais c'est secondaire puisqu'il suffit d'une seule action pour placer la grille dans ce mode, elle y restera pendant toute la session. Ce n'est donc pas bien gênant.

[Jipété]

Salut,

je réagis un peu tardivement mais c'est la vision de ton bout de code qui m'a fait tilter :

Pour sélectionner ou désélectionner la CheckBox d'une StringGrid à l'aide d'une touche du clavier, ce n'est finalement pas bien compliqué:

Code :

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

1
2
3
 
  //Quand on appuie sur la touche <Enter> (13), par exemple
  if Key = 13 then

Si l'on se base sur l'ergonomie des IHM en mode graphique, c'est la barre d'espace qui change l'état d'une checkbox : l'appui sur <ENTRÉE> risque de ne pas être intuitif pour tes utilisateurs, et déstabilisant.

[naute]

Salut,
je réagis un peu tardivement mais c'est la vision de ton bout de code qui m'a fait tilter :
Si l'on se base sur l'ergonomie des IHM en mode graphique, c'est la barre d'espace qui change l'état d'une checkbox : l'appui sur <ENTRÉE> risque de ne pas être intuitif pour tes utilisateurs, et déstabilisant.

OK! Je ne savais pas. Je change ça tout de suite, et ça devient:

Code :

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

1
2
3
 
  //Quand on appuie sur la touche <Espace> (32), par exemple
  if Key = 32 then

J'avais d'ailleurs bien stipulé "par exemple" car je n'avais pas encore trop idée de la bonne touche à choisir pour cette action. Utiliser <Enter> pour ça est, comme tu dis, contre-intuitif et déstabilisant. C'est de plus du gâchis, <Enter> ayant bien d'autres usages préférables.

Merci Jipété,

naute

[naute]

Hum! Oui sauf que cela ne fonctionne pas .

Chez moi, les touches virtuelle de Delphi comme VK_SPACE (ou VK_RETURN) ne semblent pas être reconnues par Lazarus, à moins que leur déclaration soit faite dans une unité que je ne connais pas et que je n'ai donc pas incorporée à ma clause "uses".
J'utilise donc directement la valeur qu'elles représentent, c'est à dire, par exemple, 32 pour la touche <Espace> et 13 pour la touche <Enter>. Or, le 13 fonctionne et pas le 32. Est-ce que ce code est le bon? Il vient directement de la documentation Delphi et j'imagine mal que le code d'une touche puisse être différent dans des langages différent et à fortiori dans des IDE qui utilisent le même langage. Sauf erreur, il est fixé par le système d'exploitation, non ?
J'ai essayé, pour voir, avec les touches <Escape>, code 27 (VK_ESCAPE sous Delphi), et <Début>, code 36 (VK_HOME sous Delphi), et ça fonctionne très bien.

Moi pas bien comprendre .



Edit: J'ai fait un

Code :

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

ShowMessage(IntToStr(Key))

et la touche <Espace> me renvoit bien 32

Edit 2: Toujours le même problème de méconnaissance du composant. L'utilisation de la touche <Espace> pour positionner les CheckBox(s) de la StringGrid est déjà implémentée, ce qui confirme d'ailleurs, s'il en était besoin, le classicisme de son utilisation pour cette action. Donc, quand je code pour inverser le 'cochage' (pas français) de la CheckBox, j'annule celui qui a été réalisé dans l'implémentation du composant. Il ne se passe donc rien, du moins en apparence. Ah la la, misère . Bon, ben j'vais aller prendre un p'tit !