Código Delphi
[-]
procedure TFR_MailBodegas.SGMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Col, Row: Integer;
begin
SG.MouseToCell(X, Y, Col, Row);
if (row<>0) and (col=3) then
Screen.Cursor :=crHandPoint
else
screen.cursor:=crdefault;
end;
Con este codigo basto!!!...muchas gracias!!...Mousetocell
Graciiiiiassss!!