WindowsMediaPlayer随Form变化而变化的问题(100分)

我在网上找到了一个解决方法,
1、先在窗口里定义一个类型：

TLocOleCtrl = Class (TOleControl);

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

TLocOleCtrl (WindowsMediaPlayer1).OnPosRectChange (Rect (0, 0, ClientWidth, ClientHeight));
===========================
但一运行时就提示:
Expected ':' but '= ' found
请教高手如何解决?如何才能让WindowsMediaPlayer随Form大小而大小呢?谢谢了.

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

TLocOleCtrl = Class (TOleControl);

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

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

可以实现

至于那个错误 是你自己代码的问题,在哪儿应该是赋值的 写成了 =

我只是在定义TLocOleCtrl = Class (TOleControl);后,再点击:窗口的OnResize事件时就提示:Expected ':' but '= ' found 怎么办呢???

....
楼主 你定义错地方了吧 还是逗大伙开心啊
...

uses 处定义 form的OnResize

查代码吧

楼上的DIGUA..能否你自己制作一个Form+WindowsMediaPlayer的简单源码,发布出来,我粘贴试试啊?谢谢了.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, WMPLib_TLB;

type
TLocOleCtrl = Class (TOleControl);


type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
begin

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

end;


end.

吐血....
为什么不能添加在
type
TForm1 = class(TForm)
WindowsMediaPlayer1: TWindowsMediaPlayer;
procedure FormResize(Sender: TObject);
这里面呢???

谢谢digua....马上加积分 ....

多人接受答案了。