在DELPHI中让WindowsMediaPlayer控件随窗口改变大小

 

在DELPHI中使用微软的WindowsMediaPlayer ActiveX控件的时候，如果想让控件随窗口大小一起改变，最常用的方法就是设置控件的Align属性，但是你会发现，对于ActiveX控件，会出现问题，下面把解决办法贴出来。

在网上搜索了很多贴子，有设置WindowsMediaPlayer控件的焦点的，有使用DoObjectVerb (-1)办法的。这两种办法在2000以下的操作系统中没有问题，但是在XP以上的系统中，因为其默认设置的效果是“拖动时改变窗口大小”，这样会不让你改变窗口大小。但是最大化、最小化的时候，没问题。

最后在一个国外的论坛上找到了解决办法，方法如下：

 

一劳永逸的解决办法是：

 

1、先在窗口里定义一个类型：

TOleCtrlAccess = class(TOleControl);

 

2、在窗口的OnResize事件里加上：

TOleCtrlAccess(WindowsMediaPlayer1).OnPosRectChange(Rect (0, 0, ClientWidth, ClientHeight));

 

通过以上两点设置，一切OK～～～～～