delphi制作Realplay播放器.docVIP

Realplay播放器 DELPHI前期版本，本身并没有播放REALPLAY文件的功能，但是它提供了一个activeX插件，可以播放REALPLAY文件，刚安装的 DELPHI的ACTIVE标签页上并没有这个插件，需要用户自已安装，本实例将详细讲解安装过程。 步骤： 启动DELPHI，打开一个新的标准工程。单击“component”菜单(import activex control…,出现如图所示对话框: 2)选择如图所示realplayer activex control library [version1.0]单击install按钮,出现对话框单击OK继续即可. 最后可以ACTIVE X标签页上可以找到REAL图标。 其主要属性有： autostart:自动开始 source:数据源，即其它多媒体的文件名。 十六.列表框与组合框 列表框LISTBOX 列表框表面上与编辑框很相似,但不同是在列表框内容可以放很多选项每一个选项都有自已的单击事件. 当列表框不能同时显示所有选项时,将自动加上一个垂直的滚动条,使用户可以上下滚动列表框,以查阅所有的选项. 常用的属性有: ITEMS 以行为单位的,列表框中选项的集合,组合框也有. ITEMSINDEX选项的索引值. SORTED 决定选项是否排序 COLUMNS 决定列表框的列数,列表框也有. MULTISELECT是否可以选择多项,列表框独有. SELCOUNT表示被选中项的数目,只读,列表框独有 SELECTED 用来设置或返回某选项是否被选中. 例如: LISTBOX1.ITEMS.ADD(‘李小明’); LISTBOX1.ITEMS.DELETE(5)删除第6行. LISTBOX1.ITEMS.INSERT(3,’王二’); LISTBOX1.ITEMS.MOVE(2,4); 例：制作一个查看留音板 procedure TForm1.ListBox1Click(Sender: TObject); begin if listbox1.ItemIndex=0 then begin realaudio1.Source:=G:\歌曲\小薇.mp3; realaudio1.AutoStart:=true; end; if listbox1.ItemIndex=1 then begin realaudio1.Source:=G:\歌曲\爱你十分泪七分.mp3; realaudio1.AutoStart:=true; end; if listbox1.ItemIndex=2 then begin realaudio1.Source:=G:\歌曲\别说我的眼泪你无所谓.mp3; realaudio1.AutoStart:=true; end; if listbox1.ItemIndex=3 then begin realaudio1.Source:=G:\歌曲\当你孤单你会想起谁.mp3; realaudio1.AutoStart:=true; end; if listbox1.ItemIndex=4 then begin realaudio1.height:=300; realaudio1.Source:=G:\电影\新蜀山ssz01.rm; realaudio1.AutoStart:=true; end; end; end;