资源描述：
《《delphi多媒体应用》PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第七讲Delphi多媒体应用2009年4月15日主要内容Tshape组件画布组件TTreeview组件图形日历组件多媒体组件TMediaPlayer组件TShockwaveFlash组件7.1Tshape组件应用程序常用TPen对象在画布上绘制各种图形，笔的颜色在Color属性中定义。线段宽度在Width属性中定义。7.1Tshape组件（1）Brush属性包含两个子属性：color和styleColor用于设定图形的填充颜色；Style用于设置图形的填充样式。7.1Tshape组件（2）Pen属性包含四个子属性：color,mode,style,widthColor
2、：边线颜色Mode：画笔模式Style：画布线性Width：画笔粗细7.1Tshape组件Shape属性：图形的形状。7.2画布组件（TCanvas）TCanvas对象是一个用于绘图的组件，Delphi利用这个组件为用户提供了一个绘制图形的区域，在这个区域上，程序可实现各种绘图功能，很多组件（如TImage、TMemo）的Canvas属性就是TCanvas对象。在组件上绘制图形就是在组件的画布上绘制。TCanvas的常见方法如下表所示：方法说明EllipsEllips(x1,y1,x2,y2:Integer);Ellips方法在画布指定的矩形边界上画一个椭圆，(x1,
3、y1)是矩形左上角的像素坐标，(x2,y2)是矩形右下角的像素坐标。LineToLineTo(x,y:Integer);LineTo从当前位置画一条线至(x,y)所指定的位置，并把笔的位置移至(x,y)MoveToMoveTo(x,y:Integer);MoveTo将笔的当前位置设置到点(x,y)处，笔的当前位置在PenPos属性中，改变笔的当前位置使用MoveTo方法，不要设法改变PenPos的值RectangleRectangle(X1,y1,x2,y2:Integer);Rectangle方法在画布上用当前画刷绘制矩形，(x1,y1)是矩形的左上角，(x2,y2
4、)是矩形的右下角7.3图形列表组件TtreeView组件使用图表加上文件夹或者文件名的形式显示：7.3图形列表组件TtreeView的应用离不开对节点的操作。以下是添加节点的代码：withtreeview1.Itemsdobeginclear;//增加根节点parTN:=Add(nil,‘桌面');//设置根节点的位置标志parTN.SelectedIndex:=0;//设置根节点的图像标志parTN.ImageIndex:=0;为“桌面”增加二级目录nowTN:=Addchild(parTN,‘我的电脑');//设置第一级节点的位置标志nowTN.SelectedI
5、ndex:=1;//设置第一级节点的图像标志nowTN.ImageIndex:=1;为“我的电脑”增加三级目录ChildTN:=AddChild(nowTN,'C盘');//设置第二级节点的位置标志ChildTN.SelectedIndex:=2;//设置第二级节点的图像标志ChildTN.ImageIndex:=3;单击不同的目录获取相应的信息withTreeView1dobegincaseSelected.SelectedIndexof0:showmessage('您选择了根目录');1:showmessage('您选择了一级目录"'+Selected.Text+
6、'"');2:showmessage('您选择了二级目录"'+Selected.Text+'"');3:showmessage('您选择了3级目录'+Selected.Text+'"');end;end;7.4图形日历组件Delphi提供了三种可视化日历组件：TDatetimepickarTMonthCanlendarTCalendar7.5多媒体组件（1）TMediaPlayer组件常用属性：Filename：指定播放的文件名Length:播放长度Position:媒体播放的当前位置Display与DisplayRec属性：指定一块面积用于显示多媒体设备的输出（如播
7、放视频时显示图像）。（2）TShockWaveFlash组件常用属性Movie：播放的文件名TotalFrames:总帧数CurrentFrame:当前帧Loop：是否循环常用方法Play:播放Stopplay：暂停Stop：停止Back：后退Forward：前进
