我在主表单中调用另一个表单来播放视频，播放视频的表单用的是wmplayer。现在有两个问题需要解决，一个是我想在播放视频时以一个固定大小的窗口来完整地播放（现在的情况是播放小分辨率的视频时播放的窗口很小，而播放大分辨率的视频时又不能完全显示出来），或者自动地以全屏播放也可以。第二个问题是关闭播放视频的表单后，当移动鼠标时会使表单中的控件被选中，并随着鼠标而移动，不知什么原因，如何能使关闭播放视频的表单后，鼠标能正常使用，而不是自动地拖动其中的控件。我确实花费了好几个星期的时间来进行各种参数的调整也没有弄明白，所以才来请教的，望各位帮忙看一下，谢谢了！请运行MAIN.SCX,我给出的表单只用来表达我的问题，不是实际设计时的表单，所以请不要指责设计的必要性。

vfp中如何根据已知视频文件路径播放视频http://bbs.

播放表单的 ShowWindow = 1 （在顶层表单中）

解决了吗？？

你加一个timer控件试试，
time代码：
thisform.olecontrol1.width=_Screen.Width
thisform.olecontrol1.Height =_Screen.Height

按3楼的办法，第二个问题解决了，谢谢！第一个问题还在研究中，还望各位指教。

第一个问题，将播放器大小设置为表单大小。
1、自定义表单方法 myPlayState 代码：
    LPARAMETERS hWnd, nMsg, wParam, lParam
    IF INLIST(wParam, 1, 3)
        this.Resize
    ENDIF

2、表单方法 Init 事件：
    BINDEVENT(this.hWnd, 0x401, this, "myPlayState")

3、表单方法 Resize 事件：
    this.olecontrol1.top = 0
    this.olecontrol1.left = 0
    this.olecontrol1.width = this.width
    this.olecontrol1.height = this.height

3、olecontrol1的playStateChange事件：
    LPARAMETERS newstate
    DECLARE LONG PostMessage IN User32 LONG, LONG, LONG, LONG
    PostMessage(thisform.HWnd, 0x401, newstate, 0)

这样也可以：
在olecontrol1的StatusChange事件：
thisform.Resize

按7、8楼的办法已经圆满地解决了我的问题，非常的感谢！