概述
　　----目前在许多学习软件、游戏光盘中，经常会看到各种各种学习软件
　　图形显示技巧，凭着图形的移动、交错、雨滴状、百移动显示交错页窗、积木堆叠等显现方式，使画面变得更为生动活泼，积木显现活泼更 能吸引观众。本文将探讨如何在Delphi中实现各种图形显示delphi 各种吸引技巧。
　　基本原理
　　----在Delphi中，实现一副图象的显示是非常简单的，只要在delphi 显示实现Form中定义一个TImage组件，设置其picture属性，然后选 择任何有效pictur timag form的.ICO、.BMP、.EMF或.WMF文件，进行Load，所选文 件就显示在TImage组timag 进行文件件中了。但这只是直接将图形显示在窗体中，毫无技巧可技巧图形毫无言。为了使图形显示具有别具一格的效果，可以按下列步别具一格显示下列骤实现：
　　----定义一个TImage组件，把要显示的图形先装入到TImage组件中timag 显示定义，也就是说，把图形内容从磁盘载入内存中， 做为图形缓也就是说内容磁盘存。
　　----创建一新的位图对象，其尺寸跟TImage组件中的图形一样timag 尺寸创建。
　　----利用画布(Canvas)的CopyRect功能(将一个画布的矩形区域拷贝到另copyrect canva 区域一个画布的矩形区域)，使用技巧，动态形
　　成位图文件内容，然后在窗体中显示位图。
　　----实现方法
　　下面介绍各种图形显示技巧：
1.推拉效果
　　将要显示的图形由上、下、左、右方向拉进屏幕内显方向显示图形示，同时将屏幕上原来的旧图盖掉，此种效果可分为四
　　种，上拉、下拉、左拉、右拉，但原理都差不多，以差不多原理上拉 效果为例。
原理：首先将放在暂存图形的第一条水平线，搬移至要显原理第一水平示的位图的最后一条，接着再将暂存图形的前两条水平线水平线最后接着，依序搬移至要显示位图的最后两条水平线，然后搬移前最后水平显示三条、前四条叄?直到全部图形数据搬完为止。在搬移的过为止直到数据程中即可看到显示的位图由下而上浮起，而达到上拉的效由下而上看到显示果。
程序算法：
procedure TForm1.Button1Click(Sender: TObject);
var
newbmp: TBitmap;
i,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=0 to bmpheight do
begin
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-i,bmpwidth,bmpheight),
image1.Canvas,
Rect(0,0,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;
end;
2.垂直交错效果
原理：将要显示的图形拆成两部分，奇数条扫描线由上往显示原理奇数下搬移，偶数条扫描线的部分则由下往上搬移，而且两者部分偶数扫描同时进行。从屏幕上便可看到分别由上下两端出现的较淡上下分别进行图形向屏幕中央移动，直到完全清楚为止。
程序算法：
procedure TForm1.Button4Click(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i< =bmpheight do
begin
j:=i;
while j >0 do
begin
newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),
image1.Canvas,
Rect(0,bmpheight-i j-1,bmpwidth,bmpheight-i j));
newbmp.Canvas.CopyRect(Rect
(0,bmpheight-j,bmpwidth,bmpheight-j 1),
image1.Canvas,
Rect(0,i-j,bmpwidth,i-j 1));
j:=j-2;
end;
form1.Canvas.Draw(120,100,newbmp);
i:=i 2;
end;
newbmp.free;
end;
3.水平交错效果
原理：同垂直交错效果原理一样，只是将分成两组后的图交错原理分成形分别由左右两端移进屏幕。
程序算法：
procedure TForm1.Button5Click(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i< =bmpwidth do
begin
j:=i;
while j >0 do
begin
newbmp.Canvas.CopyRect(Rect(j-1,0,j,bmpheight),
image1.Canvas,
Rect(bmpwidth-i j-1,0,bmpwidth-i j,bmpheight));
newbmp.Canvas.CopyRect(Rect
(bmpwidth-j,0,bmpwidth-j 1,bmpheight),
image1.Canvas,
Rect(i-j,0,i-j 1,bmpheight));
j:=j-2;
end;
form1.Canvas.Draw(120,100,newbmp);
i:=i 2;
end;
newbmp.free;
end;
4.雨滴效果
原理：将暂存图形的最后一条扫描线，依序搬移到可视位最后原理扫描图的第一条到最后一条扫描线，让此条扫描线在屏幕上留最后第一扫描下它的轨迹。接着再把暂存图形的倒数第二条扫描线，依轨迹倒数第二序搬移到可视位图的第一条到倒数第二条扫描线。其余的倒数第二其余扫描线依此类推。
程序算法：
procedure TForm1.Button3Click(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
for i:=bmpheight downto 1 do
for j:=1 to i do
begin
newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),
image1.Canvas,
Rect(0,i-1,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.free;
end;
5.百叶窗效果
原理：将放在暂存图形的数据分成若干组，然后依次从第原理分成若干一组到最后一组搬移，第一次每组各搬移第一条扫描线到最后第一扫描可视位图的相应位置，第二次搬移第二条扫描线，接着搬第二位置接着移第三条、第四条扫描线.
程序算法：
procedure TForm1.Button6Click(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
xgroup,xcount:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
xgroup:=16;
xcount:=bmpheight div xgroup;
for i:=0 to xcount do
for j:=0 to xgroup do
begin
newbmp.Canvas.CopyRect(Rect
(0,xcount*j i-1,bmpwidth,xcount*j i),
image1.Canvas,
Rect(0,xcount*j i-1,bmpwidth,xcount*j i));
form1.Canvas.Draw(120,100,newbmp);
end;
newbmp.Free;
end;
6.积木效果
原理：是雨滴效果的一种变化，不同之处在于，积木效果积木变化原理每次搬移的是一块图形，而不只是一根扫描线。
程序算法：
procedure TForm1.Button7Click(Sender: TObject);
var
newbmp:TBitmap;
i,j,bmpheight,bmpwidth:integer;
begin
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=bmpheight;
while i>0 do
begin
for j:=10 to i do
begin
newbmp.Canvas.CopyRect(Rect(0,j-10,bmpwidth,j),
image1.Canvas,
Rect(0,i-10,bmpwidth,i));
form1.Canvas.Draw(120,100,newbmp);
end;
i:=i-10;
end;
newbmp.free;
end;
结束语
上述图形显示效果均已上机通过，软件环境Delphi 3.0 ，硬件delphi 环境显示环境Pentium 100M兼容机。使用效果很好。