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中获取guid的函数

Delphi 建立access数据库

Delphi 检查ip地址合法性

Delphi 让combobox只允许输入数字和回车键以及Delphi key值表

Delphi 调用shellexecute打开txt文本

Delphi固定窗口大小

Delphi listbox模糊查找文字

Delphi加载图像存储到数据库中

Delphi 字符串转换为16进制整数 整数转换为16进制字符串

Delphi strtohexstr 字符串转换hex

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

转载请注明出处：木庄网络博客 » delphi 屏幕整体拉出源代码