Discussion :

[Invité]

Bonjour,

Je voudrais afficher des Hints sur certaines cellules d'une StringGrid lors de leur survol à la souris, avec un affichage de la bulle d'aide sans trop de latence. J'ai essayé de modifier la vitesse des Hint mais je me heurte au déclenchement de l'affichage de la bulle lors du saut d'une ligne à une autre ou d'une colonne à une autre.

La solution la plus satisfaisante que j'ai trouvée est la combinaison d'un TStaticText avec la TStringGrid :

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
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
   StaticTextHint.Parent := StringGrid1;
end;
[...]                              
procedure TFormMain.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
  aCol,aRow : integer;
  sMess : string;
begin
 StringGrid1.MouseToCell(X, Y, aCol, aRow);
 if (aCol > 4) and (aCol < 8) and (aRow > 0) then begin
   sMess := IntToStr(aCol) + ',' + IntToStr(aRow);
   StaticTextHint.Left := X; //A cet emplacement pour assurer la fluidité
   StaticTextHint.Top  := Y; //de l'affichage
   if StaticTextHint.Caption <> sMess then begin 
      StaticTextHint.Caption := sMess;
      if not StaticTextHint.Visible then StaticTextHint.Visible := True;
  end;
  StaticTextHint.Refresh;  //Obligatoire sinon superposition des caractères dans le TStatic ?
end else
 StaticTextHint.Visible := False;
end;

Je ne comprends pourquoi lorsque je balaye à la souris une ligne de la StringGrid

• de gauche à droite, la fluidité de la bulle est saccadée,
• alors que si je balaye la même ligne de droite à gauche, la fluidité est "normale" (et ceci sans avoir lu une première fois la ligne de gauche à droite).

Une explication ou une autre méthode ?

Merci Gilles.

[DOLPat®]

Je ne comprends pourquoi lorsque je balaye à la souris une ligne de la StringGrid

• de gauche à droite, la fluidité de la bulle est saccadée,
• alors que si je balaye la même ligne de droite à gauche, la fluidité est "normale" (et ceci sans avoir lu une première fois la ligne de gauche à droite).

Une explication ou une autre méthode ?

Bonjour

L'explication est simple: À moins de déplacer très lentement ton curseur vers la droite, il y a de fortes chances que ton curseur se trouve sur le TStaticText et la procédure StringGrid1.OnMouseMove n'est donc plus déclenchée. Ce n'est pas le cas lors d'un déplacement vers la gauche.

Modifie les deux lignes de codes suivantes:

Code :

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

1
2
   StaticTextHint.Left := X+16; //A cet emplacement pour assurer la fluidité
   StaticTextHint.Top  := Y+16; //de l'affichage

Cela rend le déplacement tout à fait fluide.

[Invité]

Merci...

Oui, oui. Cela fonctionne en effet. Je n'y avais pas pensé. J'avais bien observé que la pointe du curseur de la souris était toujours placée en haut à droite du TStaticText dans le "bon" cas et qu'elle "rippait" sur la ligne supérieure du TStaticText dans le mauvais.

Par contre, j'ai un autre problème. Le MouseWheel semble être courtcircuité par la procédure MouseMove. Impossible de faire descendre ou monter l'affichage avec la roulette dans les cellules (colonnes) concernées par l'affichage du TSTtaticText... Pour les autres colonnes cela fonctionne normalement.

Cordialement. Gilles

[DOLPat®]

Le MouseWheel semble être courtcircuité par la procédure MouseMove.

Désolé, mais impossible pour moi de t'aider car je suis sur un portable et je n'ai pas de molette...

[Invité]

Rebonjour Pat,

Cela fonctionne correctement maintenant. Le mauvais fonctionnement du MouseWheel était sans lien direct avec l'affichage du TStaticText.

Encore merci. Cordialement.
Gilles