用Delphi 显示122种图形特效_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用Delphi 显示122种图形特效

作者：闵涛文章来源：闵涛的学习笔记点击数：859 更新时间：2009/4/23 18:24:47

　　在开发多媒体软件时，经常需要编写各种图形显示特效，近日在网上找到TPicShow 2.3 for Delphi 3,4,5这一控件，据介绍能显示122种不同的图形特效。经下载按装后，可在Delphi件面板的Samples组中可发现一个相机状的图标。下面来看其具体应用。

　　首先：在form1中放入PicShow1,Button1,Spinedit1（Spinedit1在Samples组中）控件各一个。

　　其次：按F12后依次输入下列代码

　　unit Unit1;

　　nterface

　　uses

　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

　　PicShow, StdCtrls, Spin;

　　type

　　TForm1 = class(TForm)

　　PicShow1: TPicShow;

　　Button1: TButton;

　　SpinEdit1: TSpinEdit;

　　procedure FormCreate(Sender: TObject);

　　procedure Button1Click(Sender: TObject);

　　private

　　　{ Private declarations }

　　procedure ShowNextImage;

　　procedure LoadNextImage;

　　public

　　　{ Public declarations }

　　end;

　　var

　　Form1: TForm1;

　　i:integer;

　　implementation

　　{$R *.DFM}

　　procedure TForm1.ShowNextImage;

　　begin

　　　if PicShow1.Busy then

　　　　PicShow1.Stop

　　　else

　　　　begin

　　　　　PicShow1.Execute;

　　　　　LoadNextImage;

　　　end;

　　end;

　　procedure TForm1.LoadNextImage;

　　　begin

　　　　if i=1 then

　　　　　begin i:=0; PicShow1.Picture.LoadFromFile('c:\1.bmp'); end

　　　　else

　　　　　begin i:=1; PicShow1.Picture.loadfromfile('c:\2.bmp'); end;

　　　　end;

　　procedure TForm1.FormCreate(Sender: TObject);

　　　begin

　　　　i:=1;

　　　　LoadNextImage;

　　　end;

　　procedure TForm1.Button1Click(Sender: TObject);

　　　begin

　　　　picshow1.style:=spinedit1.Value;

　　　　showNextImage;

　　　end;

　　end.

　　最后：按F9运行，Spinedit1中的值决定图形显示的特效，范围是1~122，再按Button1则示图形。此控件可在http://www.crosswinds.net/~khojasteh/处下载。下载后解压还可发现readme,其中有它的主要属性，方法，事件，具体情况读者可自行研究。

教程录入：mintao 责任编辑：mintao

上一篇教程：实战Delphi数据网格色彩特效

下一篇教程：如何用Delphi编写自己的可视化控件

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……