图形整体拉出效果

页面导航:首页 > 软件编程 > Delphi > 图形整体拉出效果

图形整体拉出效果

来源: 作者: 时间:2016-02-05 11:47 【

单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“Stretch”设置为“True”。 举例说明下拉效果: 1.在表单上放置一图片,高度为200,属性“Heig

 

单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“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;

 

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <