相关疑难解决方法(0)

标题没有说很多东西,所以让我解释一下:

我已经制作了一个申请表,其中我放了1张图片和4个按钮.每当我按下按键:向上,向下,向左,向右移动图像时,它会选择按钮,保证移动图像.例如,如果我按下向下键,它将选择我按钮2,如果我按下它,它将选择我按钮1 ....

我是sry,我无法真正描述它的样子,在你的表单上尝试它,你会看到我的意思,代码是这样的:

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