wolfram-mathematica - 如何直接添加元素 'Show Animation Control'(不使用 Manipulate 控件设置)？

Question

我无法找到如何执行以下操作。使用Manipulate时，会自动在控件末尾显示一个小'+'，如下

Manipulate[x,
 {{x, 0, "x"}, 0, 1, .1, Appearance -> "Labeled"}
 ]

现在，我想自己使用 Dynamic 直接设置控件，并使其看起来像上面一样，如下所示:(顺便说一句，感谢 Simon 展示了正确的语法来执行此操作 here

Manipulate[x,
 {{xChanged, False}, None},

 Grid[{
   {"x ", 
    Slider[Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}], 
    Spacer[2],
    Dynamic@x
    }
   }, Frame -> None, Spacings -> {0.2, 0.1}, Alignment -> Center]
 ]

现在，唯一缺少的是小“+”。我不能在上面使用 AppearanceElement 选项。所以，接下来我尝试了这个

Manipulate[x,
 {{xChanged, False}, None},

 Grid[{
   {"x ", 
    Animator[Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}, 
     AnimationRunning -> False], Spacer[2],
    Dynamic@x
    }
   }, Frame -> None, Spacings -> {0.2, 0.1}, Alignment -> Center]

 ]

但这给了太多。使用 Manipulate 时，我只需要标记为“显示动画控件”的“+”。但是我找不到与此匹配的元素。

奇怪的是，很难找到这些元素的名称。我去 ref/AppearanceElements它甚至没有列出名字。当我去 ref/Manipulate它在外观元素选项 {"HideControlsButton", "SnapshotButton", "ResetButton", "UpdateButton" 下提到了以下内容我尝试了所有这些，但它们不是我想要的。

我去了 ref/Manipulator，看到了这些 "InputField", "StepLeftButton", "PlayPauseButton", "StepRightButton", "FasterSlowerButtons", "DirectionButton", "InlineInputField".但它们都不是“显示动画控件”。

有谁知道如何获得“+”元素？

(奇怪的是，这些元素并未全部列在一个地方，在 ref/AppearanceElements 中)

谢谢，

Answer 1

有什么理由不能使用 Manipulator ?

Manipulate[x, {{xChanged, False}, None}, {x, None}, 
 Grid[{{"x ", 
    Manipulator[
     Dynamic[x, (x = #; xChanged = True; #) &], {0, 1, .1}], 
    Spacer[2], Dynamic@x}}, Frame -> None, Spacings -> {0.2, 0.1}, 
  Alignment -> Center]]