Discussion :

[paradise]

Bonjour,
Je voudrais faire en sorte qu'en survolant les éléments de ma DBGrid à la souris, ceux "tronqués" apparaissent en entier dans le hint de la grille.
J'implémente donc l'évènement OnMouseMove mais j'arrive seulement à récupérer la valeur de l'enregistrement en cours, et pas de celui situé sous la souris ! Je voudrais juste récupérer une valeur texte, la propriété Cells ferait l'affaire mais elle n'existe pas en version DB...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TfrmMain.maDBGridMouseMove(Sender: TObject; Shift: ShiftState; 
X, Y: Integer);
var
  gc: TGridCoord;
begin
  // Position de la souris sur la grille
  gc := maDBGrid.MouseCoord(X, Y);
 
  // Colonne voulue
  if gc.X = 2 then 
      maDBGrid.Hint := monDataSet.FieldByName('CHAMP_VOULU').AsString;
end;

Mes enregistrements étant triés j'essaie une requête à partir du paramètre gc.Y, mais dès lors que l'on navigue dans la grille le Y renvoie toujours la ligne en cours parmi les lignes affichées. Donc si je suis "descendu" aux enregistrements 20 à 30 et la souris localisée sur le 23, pour lui Y=3 donc il ne me renvoie pas la bonne valeur !
Des idées svp ?
Merci

[Rayek]

Avec çà tu devrais pouvoir faire la même chose sur ton DbGrid

[paradise]

Non c'est le même problème, à savoir que la valeur ARow renvoyée par MouseToCell correspond au n° de ligne parmi les lignes visibles et ne tient pas compte du défilement vertical.

[paradise]

A noter que ce "problème" survient uniquement avec les TDBGrid !
MouseToCell fonctionne parfaitement avec une TStringGrid (même dans le cas de lignes invisibles précité), mais j'ai beau transtyper ma grille de données en TCustomGrid, TStringGrid... (cette méthode n'est pas accessible pour une TDBGrid), rien n'y fait.