请教一个播放区域的问题(请看代码如下) ( 积分: 50 )

我想请教个位高手的问题是这样的，在播放媒体文件时，显示区域的件事该怎么做呀。比如鼠标双击、鼠标移动等的事件。
简化代码如下
首先添加一个Panel(显示区域)、两个Button(播放、停止)
uses
mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
cmd : String;
hwnds:string;
Const
WS_CHILD = '1073741824';
begin

str(Form1.Panel1.Handle,hwnds);
cmd := 'open '+'//请在这儿指定媒体文件(*.avi)'+' type '+'MPEGvideo'+' Alias '+'MAPlay'+
' parent '+hwnds+' Style '+WS_CHILD +' shareable';
mciSendString(pchar(cmd), nil, 0, 0);
cmd := 'play ' + 'MAPlay';
mciSendString(pchar(cmd), nil, 0, 0);//播放
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

mciSendString(pchar('Close ' + 'MAPlay'), nil, 0, 0);//关闭
end;


请问，怎样做在播放媒体文件时候的显示区域的事件（Panel的事件），比如：鼠标双击、鼠标移动等事件。
菜鸟初学编程，望各位大侠指点。先谢谢了

我想请教个位高手的问题是这样的，在播放媒体文件时，显示区域的件事该怎么做呀。比如鼠标双击、鼠标移动等的事件。
简化代码如下
首先添加一个Panel(显示区域)、两个Button(播放、停止)
uses
mmsystem;

procedure TForm1.Button1Click(Sender: TObject);
var
cmd : String;
hwnds:string;
Const
WS_CHILD = '1073741824';
begin

str(Form1.Panel1.Handle,hwnds);
cmd := 'open '+'//请在这儿指定媒体文件(*.avi)'+' type '+'MPEGvideo'+' Alias '+'MAPlay'+
' parent '+hwnds+' Style '+WS_CHILD +' shareable';
mciSendString(pchar(cmd), nil, 0, 0);
cmd := 'play ' + 'MAPlay';
mciSendString(pchar(cmd), nil, 0, 0);//播放
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

mciSendString(pchar('Close ' + 'MAPlay'), nil, 0, 0);//关闭
end;


请问，怎样做在播放媒体文件时候的显示区域的事件（Panel的事件），比如：鼠标双击、鼠标移动等事件。
菜鸟初学编程，望各位大侠指点。先谢谢了

怎么没人呢，帮帮忙吧

???
没用过你说那种方法播放文件 估计和TMediaPlayer差不多吧
TMediaPlayer也没用过 被指定为显示区域的控件自己的属性不好使了么？？？
应该仍然好使吧 手上没Delphi没法试
MouseMove基本是个可视控件就有这个事件
双击如果自己不想自己判断 那么就指定一个有双击事件的控件作为播放区
比如TMemo......

TMediaPlayer这个也是一样的问题,
比如我指定了Panel为播放区域,在Panel写入的事件,只要让TMediaPlayer为播放状态时,Panel的事件就没用了