WINDOWS应用程序的窗口及其窗口内的按钮等控件,其本身都具有立体感效果,特别是在WINDOWS95系统下DELPHI程序设计中,立体效果更加完善,程序界面尤如真实物体的存在。尽管如此,它还是不能完全满足所有场合的程序设计需要,比如你要使一个控件具有一个阴影效果,或者使一个控件显示出深度投影效果,就必须依靠其它程序设计手段。这里有一个可利用的CANVAS类,它可以轻松的完成这些特殊效果程序界面的绘制工作。

　　CANVAS(画布）是DELPHI中为某些控件所定义的一个类,它允许在控件表面进行灵活的绘图操作或信息显示,并且适用于多种控件,如FROM、IMAGE、FILELISTBOX等,为美化程序界面提供了非常方便的方法;CANVAS具有多种属性并支持多种操作命令,可以实现在指定的对象上画点、画线、画多边形、画扇形、画圆、定义画笔特性、输出各种字符串等多种功能。控件的阴影及投影效果的形成,基本原理就是在利用该控件的父控件比如FORM或者其它容器控件的CANVAS,在该控件的周围适当处填加图像,通过线条及颜色的合理搭配,使控件与周围的图像融为一体,形成特殊的视觉效果。所需要的CANVAS命令如下:
　　form1.canvas.pen.width:定义画笔的宽度
　　form1.canvas.pen.color:定义画笔的颜色
　　form1.canvas.moveto:定义画线起点坐标
　　form1.canvas.lineto:定义画线终点坐标

　　具体操作时需要根据被修饰控件的TOP、LEFT、WIDTH、HEIGHT属性,确定需要画线的起点和终点坐标,这样操作无论被修饰控件位置及尺寸如何变化,都可以保证投影及阴影效果完美的实现。

　　下面是一个简单的演示程序,在窗体中安放三个命令按钮控件Button1、Button2、Button3,然后输入下面.PAS文件中的相应代码,程序运行之后按下命令按钮2,则为按钮1增加投影效果,按下命令按钮3为按钮1增加阴影效果,按下按钮1则程序结束。上述方法可灵活应用在DELPHI程序界面设计之中,实现一些屏幕特技效果,会极大增强程序工作界面的生动性。其中有一点需要注意,当程序窗口发生变化时(最大化或最小化）,其投影及阴影效果可能会被破坏,此时需要重画以保证程序界面的完整性,所以在程序中应该适当安排窗口变化监视功能。

　　程序在486机、WINDOWS95中文版、DELPHI2.0环境下调试通过,附.PAS文件内容。

　　unit can;

　　interface 
　　uses　Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;

　　type

　　TForm1 = class(TForm）
　　　Button1:TButton; 
　　　　　　Button2:TButton;
　　　　　　Button3:TButton;
　　　procedure Button2Click(Sender:TObject);
　　　procedure Button3Click(Sender:TObject);
　　　procedure Button1Click(Sender:TObject);
　　　procedure FormCreate(Sender:TObject);
　　private｛Privatedeclarations｝
　　public｛Publicdeclarations｝
　　end;

　　var
　　　Form1:TForm1;
　　　x,y,i:integer;

　　implementation
　　｛＄R＊.DFM｝
　　｛投影效果的形成｝
　　procedure TForm1.Button2Click(Sender:TObject);
　　begin
　　　form1.canvas.pen.width:=1;
　　　for i:=0to 8 do
　　　begin
　　　　form1.canvas.pen.color:=＄00a0a0a0;
　　　　form1.canvas.moveto(Button1.left+Button1.width+x,Button1.top+y);
　　　　form1.canvas.lineto(Button1.left+Button1.width+x,Button1.top+button1.height+y);
　　　　form1.canvas.pen.color:=＄00606060;
　　　　form1.canvas.moveto(Button1.left+x,Button1.top+Button1.height+y);
　　　　form1.canvas.lineto(Button1.left+Button1.width+x,Button1.top+button1.height+y);
　　　　x:=x+1;
　　　　　　　　y:=y+1;
　　　 end;
　　　　 end;

　　｛阴影效果的形成｝
　　procedure TForm1.Button3Click(Sender:TObject);
　　begin
　　　　　　x:=0;
　　　　　　y:=0;
　　　form1.canvas.pen.width:=1;
　　　for i:=0to 8 do
　　　begin
　　　　　　　 form1.canvas.pen.color:=＄00404040;
　　　　form1.canvas.moveto(Button1.left+Button1.width+x,Button1.top+8);
　　　　form1.canvas.lineto(Button1.left+Button1.width+x,Button1.top+button1.height+8);
　　　　form1.canvas.moveto(Button1.left+8,Button1.top+Button1.height+y);
　　　　form1.canvas.lineto(Button1.left+Button1.width+8,Button1.top+button1.height+y);
　　　　x:=x+1;
　　　　　　　 y:=y+1;
　　　end;
　　　 end;

　　｛退出程序｝
　　procedure TForm1.Button1Click(Sender:TObject);
　　begin
　 　　close;
　　　 end;

　　｛初始化代码｝
　　procedure TForm1.FormCreate(Sender:TObject);
　　begin
　 　　Button1.caption:='Exit';
　　 　Button2.caption:='投影';
　 　　Button3.caption:='阴影';
　　end;

　　end.