用Delphi实现渐变背景

IT商界

高翔

　　许多安装程序都使用渐变背景(通常为渐变蓝色)，效果不错。其实，在Delphi中实现这一功能非常容易，以下就是实现的过程：

　　1.打开Delphi，新建一个工程，并保存该工程。

　　2.在工程中添加以下代码：

　　procedure TForm1.FormPaint(Sender: TObject);

　　const

　　level=150;//渐变色分为150层，每层一种颜色

　　var

　　i,j,k,step:integer;

　　begin

　　step:=(ClientHeight div level)+1;

　　//自上而下加深颜色

　　for i:=0 to ClientHeight-1 do

　　begin

　　j:=(i div step mod level);

　　Canvas.Pen.Color：=RGB(j,j,120);

　　k:=ClientHeight-1-i;

　　Canvas.MoveTo(0,k);

　　Canvas.LineTo(ClientWidth,k);

　　end;

　　end;

　　3.按F9键运行该程序。

　　现在，程序可以用了，但是，如果你将窗口最大化，就会发现窗口的颜色变乱了，解决方法是加入以下代码：

　　procedure TForm1.FormResize(Sender: TObject);

　　begin

　　form1.Repaint;

　　end;

　　上述代码的作用是在窗体大小改变时，使窗体自动进行重绘。

　　现在好了，渐变背景就这样实现了，如果你不喜欢蓝色，想换成其他颜色，只要修改其中的RGB函数即可。