Hint ou autre sur icone (Timage) dans cellule StringGrid

Version imprimable

09/07/2009, 00h26
BuzzLeclaire

Hint ou autre sur icone (Timage) dans cellule StringGrid

Bonjour, Bonsoir à toutes 8-) et à tous,

Pour mon application je dois afficher un symbole (ici un .bmp 16x16) sur certaine cellule d'une même colonne de StringGrid.
Jusque là aucun problème mes petites images apparaissent bien dans mon stringgrid dans les bonnes cellules de la bonne colonne.

J'utilise uniquement 2 images l'une est le Tick.bmp et l'autre warning.bmp, pour ceux qui connaisse.

Ma question :

Est-il possible d'afficher une info style hint (ou autre) au passage de la souris sur cette image ? sachant que je peux avoir plusieur fois la même image sur différente cellule et que le message enfin le pseudo hint peut être différent.
Evidement l'utilisateur peut scroller le stringgrid pour afficher ce pseudo hint sur une image se trouvant dans une cellule lointaine.

Si oui, il y a-t-il un exemple ? ou un debut de code ? ou comment dois-je mi prendre ?

Merci par avance.

Bonjour à toutes et à tous,

@BuzzLeclaire, ce lien me parait interessant car Nono40 avait réalisé plusieures astuces à ce sujet :

http://delphi.developpez.com/sources...no40source0035

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
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
  Then Begin
    StringGrid1.Hint := Chaine;
    Application.ActivateHint(Mouse.CursorPos);
  End;
end;

@+,

Cincap

Salut cincap,

c'est exactement ce que je recherchais.
J'ai fais quelque adaptation pour avoir 1 hint différent ou non pas cellule.

voilà mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TFManuelle.StringGrid1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
Var
  C, R  : Longint;
begin
  // Il faut obtenir la cellule pointée par la souris
  StringGrid1.MouseToCell(X, Y, C, R);
 
  if (c<1) or (r<0) Then Exit;
  if r > High(HintTraitement) then Exit;
  if HintTraitement[r] <> '' then
  begin
    StringGrid1.ShowHint := True;
    StringGrid1.Hint := HintTraitement[r];
    Application.ActivateHint(Mouse.CursorPos);
  end
  else
    StringGrid1.ShowHint := False;
//...

MErci bien à toi.

bye.