公告:网站程序已升级到1.8.3,修复了提问时可能报错的问题,请清除浏览器缓存
2019-11-10

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

0 投票
19 浏览
Manipulate[EventHandler[

  Row[{TableForm[Map[NumberForm[#, {6, 2}] &, {{x, y}, dir}, {2}],

     TableHeadings -> {{"{x,y}", "dir"}, {"X", "Y"}}]

    , Graphics[{Thick, Green, PointSize[.02], Point[{x, y}],

      Line[{{x, y}, {x, y} + dir}]}

     , ImageSize -> {200, 200}, PlotRange -> {{0, 10}, {0, 10}},

     Background -> Gray]}]

  , {"LeftArrowKeyDown" :> (dir = RotationTransform[.1][dir])

   , "RightArrowKeyDown" :> (dir = RotationTransform[-.1][dir])

   , "UpArrowKeyDown" :> (If[0 < x + dir[[1]] < 10, x += dir[[1]]];

     If[0 < y + dir[[2]] < 10, y += dir[[2]]])

   , "DownArrowKeyDown" :> (If[0 < x - dir[[1]] < 10, x -= dir[[1]]];

     If[0 < y - dir[[2]] < 10, y -= dir[[2]]])}]

 , {{x, 3.2}, ControlType -> None}, {{y, 4.8},

  ControlType -> None}, {{dir, {0, 1}}, ControlType -> None}

 ]

在右边图形区动几下方向键,有时右边图形区就会失去焦点,焦点跑到左边的表区了,导致要想右边的图形区继续能响应方向键,就得鼠标点一下右边的图形区,动作很不连续!如何才能让右边的图形区不失去焦点呢?期待回答,谢谢。
用户: 绿叶海蜗牛 (21 分)
在版本12.0上确实有这问题

登录 或者 注册 后回答这个问题。

...