wolfram-mathematica - Mathematica 中的鼠标悬停和动态

Question

谁能指出为什么这在 Mathematica 8 中不起作用:

DynamicModule[{x = Pink},
 Row[
  {Style["Hello", x],
   Mouseover[
    x = Green; "World",
    x = Blue; "World"]}]]

当我将鼠标悬停在“World”上时，我期望看到“Hello”的颜色发生变化。我得到的是一个永远不会改变颜色的粉红色“你好”。

Answer 1

我想我已经等待了足够长的时间来公平对待。这是我的建议:

DynamicModule[{x = Pink},
 Row[{
   Dynamic@Style["Hello", If[MouseAnnotation[] === 1, x = Green; Blue, x]],
   Annotation["World", 1, "Mouse"]
 }]
]