Manipulate[
EventHandler[Style[Graphics3D[{nf = Nearest[pp -> Automatic];
{Opacity[0.5],
First@ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v],
Cos[v]}, {v, 0, Pi}, {u, 0, 2 Pi},
MaxRecursion -> ControlActive[1, Automatic],
PlotPoints -> ControlActive[Automatic, 50]]}, {Red,
Sphere[Dynamic@pp, .05]},
Arrow[{{0., 0., 0.}, Dynamic@pp[[1]]}]}, Boxed -> False,
PlotRange -> 1.1,
Epilog ->
Inset[Style["Shift+mouseover",
FontColor ->
Dynamic@If[CurrentValue["ShiftKey"], Black, Gray]], {Right,