Discussion :

[messahel]

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

[tourlourou]

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

[messahel]

comment utiliser CellFromPoint ?

[tourlourou]

Code :

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

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...

[messahel]

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 ?

[tourlourou]

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