Discussion :

[PpPool]

bonjour à tous,

je me prends la tête depuis plusieurs jours avec un truc certainement tout bete : j'utilise un composant StringGrid pour charger des données provenant de bdd et/ou de fichiers.

Je voudrai, à la fin de mon chargement que la cellule (1ère colonne, 1ère) soit éditer. C'est à dire, que la valeur de cette cellule soit sélectionnée pour modifications (le fond de la cellule apparait de manière colorée). Vous voyez ???

Tout bete peut être !! mais... JE NE TROUVE PAS

un coup de main ?

thanks a lot
@

[Benjamin GAGNEUX]

Pour cela, il faut utiliser les propriétés Row et Col

Code :

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

1
2
3
 
StringGrid1.Col := 0;
StringGrid1.Row := 0;

Ainsi la cellule ayant la colonne 0 et la ligne 0 est sélectionné.

a+

[PpPool]

salut à toi et merci de ton aide,

ta solution ne marche pas. Ce que je recherche à reproduire c'est un OnGetEditText.

Le 1er élément de la StringGrid doit être automatiquement édité.

1/ je charge ma StringGrid
2/ je la repaint : coloration d'une ligne sur 2+mise en forme 1ère ligne du tableau
3/Positionner sur la 1ère cellule et l'éditer, de sorte que l'utilisateur puisse saisir automatiquement sans avoir à sélectionner la cellule.

peut être que je ne suis pas très clair, donc pour faire ultra simple : cliquer sur une cellule de votre StringGrid, celle-ci passe en mode édition, elle est modifiable directement !!

c'est ce que je veux réussir à faire.

pourquoi les choses les plus simples sont toujours les plus compliquées

[Benjamin GAGNEUX]

ta solution ne marche pas.

Pourquoi cela ne fonctionne pas, quel est le message d'erreur.

C'est cela que j'utilise dans ma Stringgrid et cela fonctionne (mise en surbrillance).

Peux tu m'apporter plus de précision sur le disfonctionnement ?

[PpPool]

re-bonjour, re-merci de ton aide

je n'ai pas de message d'erreur. Je suis bien positionné sur la cellule, mais je dois de nouveau cliquer sur celle-ci pour la mettre en surbrillance.
Ce que je voudrai automatiser.

Je suis en train de regarder du coté de goDrawFocusSelected.
je n'avais pas mis cette option à true. je l'ai mis, mais apparement cela ne change rien.


Autres options activées de la StringGrid :

Code :

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

1
2
 
[goFixedVertLine,goFixedHorzLine,goVertLine,goHorzLine,goRangeSelect,goDrawFocusSelected,goEditing]

peut-etre est-ce du au fait que j'ai une procédure DrawCell pour repaindre ma StringGrid ?

?
@

[Benjamin GAGNEUX]

Je crois que c'est ton goRangeSelect qui permet entre autre une selection multiple. Il faudrait la désactivé lors du positionnement de la sélection.

Sinon, cela devrait marcher, j'ai testé et, pour moi, cela fonctionne.

[PpPool]

re

j'ai désactivé goRangeSelect. j'ai enlevé ma procédure DrawCell, et j'obtiens une mise en surbrillance de la cellule sélectionnée, alors que je souhaiterai une mise en surbrillance uniquement du texte de la cellule.

je suis compliqué !!

merci encore pour ton aide

[Bruno75]

Ce à quoi tu fais référence se trouve dans la partie protégée de la classe tstringlist. unité Grids. Donc voici un horrible hack !!! J'aime bien regarder les unités delphi, quand je pense que mon code n'est pas parfait ça me rassure toujours.

Voici le hack. Delphi autorise le changement de visibilité. Donc on commence par déclarer un descendant de TStringGrid

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
  TMyStringGrid = class(TStringGrid)
  public
  	procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer); override;
  end;
 
procedure TMyStringGrid.MouseDown(Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
begin
	//inherited MouseDown(Button, Shift, X, Y);
end;

Ensuite on force le typecast pendant le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
	r: TRect;
        x, y: Integer;
begin
	r := StringGrid1.CellRect(1,1);
        x := trunc((r.Left + r.Right)/2);
        y := trunc((r.Top + r.Bottom)/2);
	TMyStringGrid(StringGrid1).MouseDown(mbLeft, [], x, y);
end;

Une remarque, le code de la fonction est commenté car StringGrid1 est crée en tant que TStringGrid ce qui fait que la table virtuelle contient bien un pointeur vers la fonction de TStringGrid et non vers la fonction descendante. Il s'agit juste de tromper le compilateur !! La fonction de TMyStringGrid n'est jamais appelée

je l'ai testé ca fonctionne. Attention de bien choisir une case que l'on peut éditer.

[PpPool]

c'est exactement çà!!!! thanks a lot