Discussion :

[Abac_Angelique]

Bonjour,

J'ai un grid qui regroupe plusieurs données.
Je voudrais que lorsque je me déplace avec ma souris sur ce grid un des champs apparaissent dans une infobulle en fonction de la ligne sur laquelle on se déplace.

Je ne sais pas vraiment comment faire.

Est ce que quelqu'un pourrait m'aider?

Merci

[banban54]

bonjour

il est possible d'utiliser TGridcoord sur le MouseMove du StrinGrid, par exemple:

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 StrGridMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
  var
  gridcoord  :  TGridcoord;
  Texte      : string;
begin     //  Hint par ligne
  gridcoord := StrGrid.MouseCoord(X,Y);
  case gridcoord.Y of
    0   : texte := 'Ligne de titre'; // directement un String
    1   : texte := 'Ligne ' + IntToStr(StrGrid.Row);  // N° de ligne
    2   : texte := 'Ligne 2'
    else with StrGrid do texte := Cells[1, row]; // valeur de la 2ième colonne de la ligne survolée
  end;               
  StrGrid.Hint := Texte;
end;

à+

[petitcoucou31]

salut

voila un exemple..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
var ACol,ARow:Longint;
begin
   StringGrid1.MouseToCell(X,Y,ACol,ARow);
   if (Acol<>-1) and (Arow<>-1) then
   begin
      panel1.left:=StringGrid1.left+X+10;
      panel1.top:=StringGrid1.Top+Y+10;
      panel1.caption:=StringGrid1.cells[Acol,Arow]; // la valeur de la cellule sous la souris..
   end;
end;

[Abac_Angelique]

Merci pour vos réponses

Cependant j'utilise un DBGrid et pas un stringGrid et les exemples ne fonctionnent pas.

Auriez vous des exemple avec ce type de composant

Merci