modifier le curseur sur une colonne de stringgrid ?

bjr a tous;
je cherche a modifier le curseur au dessus des chaines d'une colonne dans stringgrid, comment faire ?

il doit falloir utiliser le MouseMove, faire un CellFromPoint (?) avec les coordonnées, vérifier l'appartenance à telle ou telle colonne, affecter le curseur en fonction

comment utiliser CellFromPoint ?

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Col, Row: integer; begin Form1.StringGrid1.MouseToCell(X, Y, Col, Row); if Col = 1 then Screen.Cursor:=crCross else Screen.Cursor:=crArrow; end;

---

je n'étais pas sûr du nom de la fonction, à juste titre...

le code fonctionne tres bien au dessus de toute la colonne;
maintenant, est ce qu'on peut changer le curseur qu'au dessus des chaines dans les cellules ?

oui : il suffit de regarder la couleur du pixel : fond ou fonte...