图形整体拉出效果

 

单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“Stretch”设置为“True”。
　举例说明下拉效果:
　1.在表单上放置一图片,高度为200,属性“Height”设为0,“Stretch”设置为True。添加“Timer”构件, “Interval”设为200,“Enable”设为Ture。
　2.在Timer1Timer中添加代码:
procedure TForm1.Timer1Timer(Sender: TObject);
　begin
　Image1.Height:=Image1.Height＋20;
　//设置增量
　if image1.Height=200 then Timer1.Enabled:=FALSE;
　　//图形整体拉出完毕
　end; 

 

上一个：利用Delphi实现图像的淡入淡出
下一个：基于Delphi的图像漫游