图形图像与多媒体技术演示文件修改版.pptVIP

课堂示例： 1、图像控件示例 2、卡通控件示例 3、多媒体播放控件示例 思考：用2个控件，shape1和button1，通过点击button1改变shape1的形状 注：inc(x,n)或inc(x)等价于x:=x+n; x:=x+1; procedure TForm1.Button1Click(Sender: TObject); begin inc(x); //x:=x+1 if x5 then x:=0; case x of 0: shape1.Shape:=stcircle; 1: shape1.Shape:=stellipse; 2: shape1.Shape:=strectangle; 3: shape1.Shape:=stroundrect; 4: shape1.Shape:=stroundsquare; 5: shape1.Shape:=stsquare; end; end; 注：在form变量说明处加一x变量说明，并定义初值为0. 12.2 图象控件Image 图像控件Timage是容器控件，在应用程序窗体上提供一矩形区域，用于显示各种位图、图标、图形文件。 具体操作方式： 1）控件属性设置操作 文件位于：c:\program files\common files\borland shared \images\ splash\256colo