由于按钮的原因，我无法使用上、下、左、右键移动图像

Question

我制作了一份申请表，其中放置了 1 张图片和 4 个按钮。每当我按下上下左右键来移动图像时，它都会选择按钮，而不是移动图像。例如，如果我按向下键，它会选择按钮2，如果我按向上键，它会选择按钮1....

很抱歉，我无法真正描述它到底是什么样子，在您的表单中尝试一下，您就会明白我的意思，代码是这样的：

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;

Answer 1

最好的解决方案是将控件（图像）放入处理对话框键的窗口（控件）中，然后确保该控件在适当的时间接收键盘焦点。

好吧，老实说，您似乎通过移动图形控件来绘制/制作动画。 非常最好的方法是创建一个自定义控件（从

TCustomControl

降序）并手动绘制内容（或者可能有图形子控件）。然后你就可以轻松地让这个控件响应方向键了。

这个控件可以做到这一点：

unit WindowContainer;

interface

uses
  SysUtils, Windows, Messages, Classes, Controls;

type
  TWindowContainer = class(TCustomControl)
  private
  protected
    procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property OnStartDrag;
    property OnStartDock;
    property OnUnDock;
    property OnClick;
    property OnCanResize;
    property OnAlignPosition;
    property OnAlignInsertBefore;
    property OnResize;
    property OnMouseWheel;
    property OnMouseWheelDown;
    property OnMouseWheelUp;
    property OnMouseUp;
    property OnMouseMove;
    property OnMouseLeave;
    property OnMouseEnter;
    property OnMouseDown;
    property OnMouseActivate;
    property OnKeyUp;
    property OnKeyPress;
    property OnKeyDown;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Rejbrand 2009', [TWindowContainer]);
end;

{ TWindowContainer }

constructor TWindowContainer.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents,
    csSetCaption, csDoubleClicks, csReplicatable, csPannable,
    csFramed];
end;

procedure TWindowContainer.WMGetDlgCode(var Message: TWMGetDlgCode);
begin
  inherited;
  Message.Result := Message.Result or DLGC_WANTCHARS or DLGC_WANTARROWS
    or DLGC_WANTTAB or DLGC_WANTALLKEYS;
end;

end.

示例演示 EXE

要尝试此控件，只需将形状/图像放入其中，然后使用此控件的

OnKeyDown

事件。另外，请确保将焦点设置在此控件上，例如当用户点击它时：

procedure TForm1.WindowContainer1Click(Sender: TObject);
begin
  WindowContainer1.SetFocus;
end;

现在，通过移动控件来制作动画是很糟糕的。相反，您应该手动绘制。将此答案与 this 答案中的代码结合起来，就完成了。