具体的问题是这样的，在自己做的ocx里面用到了media player，编程语言是delphi7(或6)，但是有两个问题始终解决不了，
一是media player无法随parent做resize，即使把media player的align设成client;
二是对运行时生成的media player变换uimode时，得到的media player的窗口大小总是不正确。 其实这两个问题在delphi中还是具有一定的普遍性的，不只是media player，凡是ocx都会遇到的，比如flash的ocx.
对于问题一，在大富翁论坛上有一个解决方案，就是在media player的parent的resize事件对media player中调用setfocus，或者DoObjectVerb(-1). 3年之前我也一直是这么做的，不过这种做法却是有问题的。因为setfocus，或者DoObjectVerb(-1)这2个调用会使media player的parent失去焦点，也就是说，在winxp下当你在放大或缩小一个窗口的时候，会发现拖了一下就拖不动了。所以这种解决方法只适合拖动时不显示窗口内容的情况，比如win2000以前的系统，而winxp系统默认是拖动不显示窗口内容的。 至于问题二也是最近才发现的，因为以前不需要在运行时改变media player的uimode。现象是当运行时改变media player的uimode时，得到的media player的窗口大小不是符合原来的大小，似乎总是回到一个默认大小，而且在切换过程中窗口会闪2次，当你再次以同样的值调用uimode时(比如按一个按钮)，media player的窗口才回到正确的位置。但是这个问题又不能通过在代码中连续2次调用
uiMode = xx来解决，即使两次调用之间加了applicaion.processmessage也不行. 关于这个问题在大富翁论坛没有提及. 那这两个问题归根结底是什么问题，造成该问题的原因又是什么呢？通过2天大量的试验发现，这两个问题都是delphi对ole容器的实现不当造成的，原因很简单，在vb6中就不会出现这样的问题。因此，问题归根结底不是微软的错，而是borland的错! 说到borland，有让我想起了vcl的另外一个bug，那就是控件的parent属性。在vcl中，当你改变一个控件的parent时，vcl会先把该控件的数据先保存到一个memory stream中，然后将这个控件的窗口销毁，从parent的list中删除对这个控件的引用，然后在新的parent的list中加入对该控件的引用，最后，如果需要再重新creat这个控件的窗口。我实在不能理解borland为什么要这样做，他凭什么要对控件的窗口下毒手？并且是否控件的所有状态都得以保存，从而可以正确的被恢复？我试过，比如listview,被选中的item在换了parent之后就没有正确的显示。至于第一条就更严重了，比如我用media player播放一段视频，在换了parent之后发现视频竟然停止播放了，实在令人匪夷所思。而同样的操作在vb6里面就完全没问题。更加令人发指的是，对于这两个臭名昭著的bug，borland竟然视而不见，随着delphi6, delphi7的发布，问题依旧。使得程序员只能绕开parent，使用widnows.setparent来解决问题，从而丢失了align带来的便利。
在回到本文主要讨论的2个问题中来，说说这2个问题的解决，也确实有趣。问题最终是通过google，而不是百度，由外国程序员而不是中国程序员解决的。通过不断的更换关键词，终于在google中找到了一个挪威语写的帖子，虽然挪威语看不懂，但是代码看的懂，加上论坛表情符号，基本可以了解大概，一试，果然不假，第一个问题就此解决。为了了解当事人到底说了什么，又到google上找了一个可以将挪威语翻译成英语的网站，还行，虽然语句基本不连贯，对于我们这种读英文以词度意，而不看布局谋篇的，也基本受用。感觉，那是"相当"好!!! 最后，第二个问题也在第一个问题的提示下顺利解决。
问题一解决:
type TLocOleCtrl=Class(TOleControl);
procedure TForm1.FormResize(Sender: TObject);
begin
TLocOleCtrl(WindowsMediaPlayer1).OnPosRectChange(Rect(0,0,ClientWidth, ClientHeight));
end;
评论回复