发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 11.4 图形整体拉出效果
发信站: 哈工大紫丁香 (2000年09月01日16:57:01 星期五), 站内信件

图形整体拉出效果

　　单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但
事先应将图形的“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;
　　上例在Windows95,Delphi3.0环境下运行通过。


 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]