用Delphi 显示122种图形特效

下载本文示例代码
　　在开发多媒体软件时，经常需要编写各种图形显示特效，近日在网上找到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则示图形。此控件可在~khojasteh/处下载。下载后解压还可发现readme,其中有它的主要属性，方法，事件，具体情况读者可自行研究。 　　在开发多媒体软件时，经常需要编写各种图形显示特效，近日在网上找到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则示图形。此控件可在~khojasteh/处下载。下载后解压还可发现readme,其中有它的主要属性，方法，事件，具体情况读者可自行研究。 下载本文示例代码


用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效用Delphi 显示122种图形特效