MediaPlayer 返回错误的鼠标位置

Question

我在使用 MediaPlayer 组件时遇到了一个奇怪的问题 这似乎是 API 或 Delphi 的错误。 我直接在 Form2 画布上显示视频并允许 用户在窗口内缩放和拖动视频。 我使用 Form2.MouseDown 和 MouseUp 事件来拖动。

阻力表现不正常，我追踪了问题 事件中窗口坐标的使用不一致。 MPG 或 WMV 视频（压缩）将报告 MouseDown 相对于视频的坐标，但相对于 MouseUp 到表格。 AVI 视频（未压缩）将同时报告 相对于表格。

我在 Windows 7 中使用 Delphi XE3。 有没有其他人遇到过这个异常，我该怎么办 获得一致的 X,Y 坐标？

7/20 添加：

我不知道 MCVE 是什么意思，但我添加了一些代码以防有人 想尝试复制问题。 Label1 & Label2 报告鼠标坐标，如果视频被移动 超出（0,0）位置，然后坐标将随着鼠标跳动 跨入或跨出视频。它不应该这样做，它应该 总是报告相对于窗口的坐标，而不是视频。 FormMouseUp 将始终相对于窗口报告。 FormMouseDown 和 FormMouseMove 来回跳转。

procedure TForm1.MFLoadFileClick(Sender: TObject);
begin
  MediaPlayer1.Open;
  MediaPlayer1.Display := Form2;
end;

procedure TForm2.FormMouseDown(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := IntToStr(X); {diag}
  Label2.Caption := IntToStr(Y); {diag}
  VidLoc := Form1.MediaPlayer1.DisplayRect;
  mX := X;   mY := Y;
  MouseDown := True;
end;

procedure TForm2.FormMouseMove(Sender: TObject; 
  Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := IntToStr(X); {diag}
  Label2.Caption := IntToStr(Y); {diag}
end;

procedure TForm2.FormMouseUp(Sender: TObject; 
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var  VL : tRect;
begin
  Label1.Caption := IntToStr(X); {diag}
  Label2.Caption := IntToStr(Y); {diag}
  if (MouseDown and Form1.Loaded) then begin
    VL := VidLoc;
    VL.Left := VidLoc.Left - mX + X;
    VL.Top  := VidLoc.Top  - mY + Y;
    Form1.MediaPlayer1.DisplayRect := VL;
    Form1.MediaPlayer1.Step;
  end;
  MouseDown := False;
end;

Answer 1

奇怪的是，在面板中移动视频不起作用，但移动面板可以。 我不想这样做，因为它需要跟踪太多对象，但它必须这样做。
移动面板使用与上面相同的代码，但具有其他各种属性。