delphi的vcl封装得很好，使用起来很方便，但在计算机世界中并没有完美的程序，本文介绍通过修改tmediaplay代码实现在任意窗口播放
作者:testnet
日期：2002.11.28
tmediaplay中有一个display属性，它是twincontrol类型，twincontrol是第一个拥有窗口句柄(handle)的vcl类，tmediaplay就是利用这个handle所handle的窗口区域播放。 如果我们把handle指向桌面，哪tmediaplay将会在桌面播放。与tcanvas不同的是，twincontrol的handle的属性是只读的，并且gethandle方法是静态方法，这说明，我们要handle指向桌面只有两种方法
- 修改twincontrol，让handle可写。
- 建立twincontrol子类，并隐藏twincontrol.gethandle方法,在新方法中返回桌面句柄。
其中第二种方法比较好.
tsurprisedisplay=class(twincontrol)
protected
function gethandle:hwnd;virtual;
public
property handle: hwnd read gethandle;
end;
其中gethandle被定义为virtual，这样可以方便继承。因为这里只是隐藏了twincontrol.gethandle方法，所以当把这个子类赋给tmediaplay.display时，它会被强制转换成父类，并调用其gethandle方法，这样达不到我们的目的。所以我对tmediaplay作了一点修改，增强其功能，修改后的tmediaplay完全与原来的兼容.
原代码:
{setting a twincontrol to display video devices' output}
procedure tmediaplayer.setdisplay( value: twincontrol );
var
awindowparm: tmci_anim_window_parms;
begin
if (value <> nil) and mciopened and fhasvideo then
begin
fflags := mci_wait or mci_anim_window_hwnd;
awindowparm.wnd := longint(value.handle);
................
end;
修改后
{setting a twincontrol to display video devices' output}
procedure tmediaplayer.setdisplay( value: twincontrol );
var
awindowparm: tmci_anim_window_parms;
wnd:hwnd;
begin
if (value <> nil) and mciopened and fhasvideo then
begin
fflags := mci_wait or mci_anim_window_hwnd;
//************************************************************
if value is tsurprisedisplay then
wnd:=tsurprisedisplay(value).handle
else
wnd:=value.handle;
//************************************************************
awindowparm.wnd := longint(wnd);
............
end;
虽然这种修改并不优美，但能最大限度地保证兼容。别一种修改方法是把tmediaplay.display改成tsurprisedisplay类型，这样可以保证安全。
使用方法：
- 使用桌面播放
只要在gethandle中返回桌面句柄,并赋值给display.
function tsurprisedisplay.gethandle:hwnd;
begin
result:=getdesktopwindow;
end;
mp.display:=tsurprisedisplay.create(self);
- 用记事本播放
记得我在tsurprisedisplay的gethandle中声明为virtual吗，现在开始发挥它的威力了，写一个类继承自tsurprisedisplay,覆盖gethandle方法，返回记事本句柄。
tnotepaddisplay=class(tsurprisedisplay)
private
wnd:hwnd;
protected
function gethandle:hwnd;override;
end;
function tnotepaddisplay.gethandle:hwnd;
begin
if wnd=0 then
begin
winexec('notepad.exe',1);
wnd:=findwindow('notepad','无标题 - 记事本');
end;
result:=wnd;
end;
mp.display:=tnotepaddisplay.create(self);
类似地还可以实现各种播放方式。
