关于媒体播放器的问题(100分)

请问各位大虾：
我现在利用Delphi编写一个媒体播放器的程序，请问怎么样自己定义一个窗口，使此播放器
播放类似于视频文件时，能出现在此窗口，而不是自己产生一个窗口？
谢谢了，：）

Specifies the display window for an multimedia device that uses a window for output.
property Display: TWinControl;
=============================================
var sWinDir: String;

iLength: Integer;
begin
// Initialize Variable
iLength := 255;
setLength(sWinDir, iLength);
iLength := GetWindowsDirectory(PChar(sWinDir), iLength);
setLength(sWinDir, iLength);

With MediaPlayer1 do begin
Filename := sWinDir + '/Clock.avi'
//specify video file
DeviceType := dtAVIVideo
//set Device compatibility to AVI
<font color=red> Display := Panel1
//Set display device to a TPanel</font>
Open;
Play;
end;
end;

你一定没有设置TMediaPlayer.Display了！
在Form上放一Panel，然后指定TMediaPlayer.Display为该Panel即可。

接受答案了.