delphi - 如何在运行时使用键盘在 Delphi 中移动控件？

Question

我添加了一个选项，可以在运行时使用鼠标移动控件，基于 this并且运行良好。

但我试图找到一些代码来完成相同的技巧，但使用键盘 - 非常像在设计时移动组件(仅移动)。

如何实现这一目标？

Answer 1

如果您知道如何完成其​​中的不同部分，这将非常容易。

1. 创建一个新的 VCL 应用程序。

2. 将 TShape 拖放到表单上。

3. 将以下 OnKeyDown 事件处理程序添加到表单中:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const
  D = 2;
begin
  case Key of
    VK_UP:
      Shape1.Top := Shape1.Top - D;
    VK_DOWN:
      Shape1.Top := Shape1.Top + D;
    VK_LEFT:
      Shape1.Left := Shape1.Left - D;
    VK_RIGHT:
      Shape1.Left := Shape1.Left + D;
  end;
end;

运行应用程序。

---

话虽这么说:

通过移动表单上的控件来创建动画是错误的。

相反，如果您想创建动画，正确的做法是使用 GDI、GDI+、OpenGL 或 DirectX/Direct2D 手动绘制它们。 Here这是我如何执行此操作的标准示例。