相关疑难解决方法(0)

我想使用firemonkey制作媒体播放器应用程序,但我看不到videoplayer的任何组件:(我试图将VLC(VideoLAN播放器)集成到firemonkey但firemonkey控件没有窗口句柄.

如何制作或查找视频播放器组件？

谢谢

在VCL表单中我使用WM_SYSCOMMAND,但在firemonkey中它是未声明的.

我测试这段代码:

procedure TForm4.dragPanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  isDraging := true;
  X0 := X;
  Y0 := Y;
end;

procedure TForm4.dragPanelMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Single);
begin
  if isDraging then
  begin
    Form4.Left := Trunc(Form4.Left + X - X0);
    Form4.Top := Trunc(Form4.Top + Y - Y0);
  end;
end;

procedure TForm4.dragPanelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Single);
begin
  isDraging := False;
end;

这是有效的,但只是为了缓慢的移动!

如何在Firemonkey中移动表单？