我考虑到了用户友好性，所以我想截取我打开的每个表单的位置，以便在每次再次打开相同的表单时进行存储和检索。
因为我计划将其移植到Mac，所以我决定使用FireMonkey。
不幸的是，当窗体在屏幕上移动时，没有触发事件。我试图拦截移动时应该触发的消息，但因为没有发生任何事情，我认为Firemonkey窗体不像VCL窗体那样工作。
我使用这个声明：

protected
  procedure WndMethod(var Msg: TMessage); virtual;

并且该方法实现

procedure TMYForm.WndMethod(var Msg : TMessage);
var
  Handled: Boolean;
begin
  // Assume we handle message
  Handled := True;
  case Msg.Msg of
    WM_MOVE : begin
                Edit_X.Text :='x - ' + MYForm.Left.ToString;
                Edit_Y.Text :='y - ' + MYForm.Top.ToString;
              end;
    else
       Handled := False;
  end;
  if Handled then
    // We handled message - record in message result
    Msg.Result := 0
  else
    // We didn't handle message
    // pass to DefWindowProc and record result
    Msg.Result := DefWindowProc(FHWnd, Msg.Msg,
      Msg.WParam, Msg.LParam);
end;

我尝试在屏幕上移动窗体，但没有截获任何事件。我在方法实现的开头放置了一个断点，但直到关闭窗体时才发生任何事情。在本例中，截获了一条消息。
我哪里做错了？