delphi - 如何使用按键移动形状：delphi 中的上、左、下、右

Question

首先，如果标题不清楚，我想提前道歉，所以我会解释一下。

我创建了一个形状，您可以在运行程序时通过移动鼠标来移动它：

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
shape1.Left:=x;
shape1.Top:=y;
end;

end.

问题是，我不喜欢用户必须使用鼠标来移动形状，所以我想通过按下键盘上的上、下、左、右键来完成。

谢谢

Answer 1

只需在表单中添加一个OnKeyDown事件处理程序：

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

你甚至可以做

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  Delta: integer;
begin
  if ssShift in Shift then
    Delta := 1
  else
    Delta := 10;
  case Key of
    VK_UP:
      Shape1.Top := Shape1.Top - Delta;
    VK_DOWN:
      Shape1.Top := Shape1.Top + Delta;
    VK_LEFT:
      Shape1.Left := Shape1.Left - Delta;
    VK_RIGHT:
      Shape1.Left := Shape1.Left + Delta;
  end;
end;

以便用户可以通过按住 Shift 键来微调位置（以像素精度）。

Answer 2

好的，我希望我做对了，因为我不得不做 Delphi 已经有一段时间了，但是： - Form 对象有一个 KeyDown 或 KeyPressed 事件，您可以对其做出反应。- AFAIK 表单上还有一个“KeyPreview”属性，必须将其设置为 true 才能正常工作。