delphi 屏幕整体拉出源代码


本文整理自网络,侵删。

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

Delphi之tclientsocket和tserversocket使用tcp keepalive心跳机制实现“断网”、"断电"检测

Delphi代码直接注入别的进程

Delphi 安装fastreport4.8.xx

Delphi 调用dll运行正常,退出时弹出错误解决办法

Delphi udl文件创建

Delphi xe7实现手机上获取wifi信息的程序

Delphi 生成随机字符串

Delphi dataset和json互转函数

Delphi实现解析百度搜索结果link?url=

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...