NOTES :
Pour créer une bulle d'aide par cellule il suffit de mettre le code suivant dans l'évènement OnNouseMove du TStringGrid.
CODE :
Procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer); Var C, R : Longint;
Chaine: String; Begin // Il faut obtenir la cellule pointée par la souris
StringGrid1.MouseToCell(X, Y, C, R); If (c<0)Or(r<0) Then Exit; // Création d'une aide en fonction de la cellule // Ici c'est simplement le numéro de le cellule, mais ce n'est qu'un exemple
Chaine:='Aide sur la cellule ['+IntToStr(C)+','+IntToStr(R)+']'; // Si l'aide est différente, il faut l'afficher de nouveau If Chaine<>StringGrid1.Hint ThenBegin
StringGrid1.Hint := Chaine;
Application.ActivateHint(Mouse.CursorPos); End; End;
