S
seucag
Unregistered / Unconfirmed
GUEST, unregistred user!
首先在菜单“Component->Import ActiveX Control...”中添加名为Real Player ActiveX Control Library(Version 1.0)的ActiveX控件。然后在Form上放置VCl面板ActiveX下新增加的RealAudio控件，又放置了OpenDialog、MainMenu控件各一个。建立File主菜单及一个子菜单OPen：用于打开.rm文件。在Open中添加代码
如下：
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
RealAudio1.sourse:=OpenDialog1.FileName;
RealAudio1.Open;
end;
end;
可以听到声音，请教怎么才能掉出图象？
注：播放的是视频
如下：
procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
RealAudio1.sourse:=OpenDialog1.FileName;
RealAudio1.Open;
end;
end;
可以听到声音，请教怎么才能掉出图象？
注：播放的是视频