鼠标悬停＆amp; Mathematica中的动态

Question

有人能指出为什么这不适用于 Mathematica 8：

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

我期望看到＆＃34; Hello＆＃34;的颜色。当我鼠标移动时改变＃34; World＆＃34;。我得到的是粉红色＆＃34;你好＆＃34;永远不会改变颜色。

Answer 1

我想我已经等了很久才公平。这是我的建议：

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

Answer 2

如果你查看结果的FullForm，你会发现它只包含每个复合指令集的最后一部分。显然，Mouseover会评估其参数并仅存储结果。

Answer 3

尝试将EventHandler与"MouseEntered"和"MouseExited"：

一起使用

DynamicModule[{c = Pink}, Row[{
 Style["Hello", FontColor -> Dynamic[c]], 
 EventHandler[
  "World", {
   "MouseEntered" :> (c = Blue), 
   "MouseExited" :> (c = Green)
}]}]]

Answer 4

快速检查显示Mouseover在您首次启动时评估其中的所有表达式：

Mouseover[Print["One"]; 1, Print["Two"]; 2]

实际使Mouseover修改x值的惯用方法是使用MouseAnnotation。 Wizard先生的回答描述了如何实现这一目标。

Answer 5

作为替代方案，您可以执行类似

的操作

DynamicModule[{col = Pink}, 
 Row[{Style["Hello ", FontColor -> Dynamic[col]], 
   Dynamic@If[CurrentValue["MouseOver"],
     col = Green; "World", 
     col = col /. Green -> Blue; "World"]}]
]