Discussion :

[qi130]

Tout est dans le titre....

L'event OnMouseDown d'un grid renvoie les coordonnées exprimées en pixels,du pointeur de la souris dans la zone client de Sender.

Dans mon cas, le sender est un grid, et je voudrais savoir quelle cellule était au-dessous du pointeur (si elle existe).


Contexte: un grid avec un popup dont certains items doivent être grisés si pas de cellule sous la souris au moment du popup.

Merci pour vos idées.

[Hauwke]

Bonsoir,
Je pense que tu pourras adapter ceci
Cordialement,
hauwke

[qi130]

Merci infiniment...

J'ai ramé pour adapter ça à mon TKStringGrid car ce compo n'hérite pas de MousetoCell mais bon, ça marche maintenant.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TOKBottomDlg4.KStringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var C, L  : Longint;
    coord:TGridCoord;
begin
     coord:=(Sender as TKStringGrid).MouseCoord(X, Y);
     c:=coord.X;
     l:=coord.Y;
     ligne:=-1;
     if (c>=0) and (l>=0) and ((Sender as TKStringGrid).RowCount>0) then
        if (Sender as TKStringGrid).Cells[c,l]<>'' then ligne:=l;
     KStringGrid1Click(nil);  // <- invalidation des menuitems si ligne<0
 
end;