x,y,i:integer;    
begin    
x:=0;y:=0;    
form1.canvas.pen.width:=1;    
fori:=0to8do    
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;    
   
    
2.为控件加上边框:DELPHI中有很多控件无边框属性,利用CANVAS    
可以为任意的控件填加边框,使其轮廓清楚;具体操作时,可先定    
义出画笔的颜色、画笔的宽度(边框宽度),之后用polyline()命    
令根据相应控件的位置、尺寸自动定位四角坐标，一次可完成一    
个固定宽度矩形的绘制工作，如果需要多种颜色或者具有立体效    
果的边框，可多次定义画笔颜色，画出连续的多个矩形，通过调    
整相邻矩形的颜色来实现特殊效果的边框绘制工作；比如在窗体    
中安放两个按钮,分别在MOUSEMOVE事件中填加如下代码,之后每    
当鼠标移到相应的按钮上时,相应的按钮就会出现特殊颜色的边    
框,当鼠标移到窗口空白处时,则窗口会出现明显的边线,起到特    
殊的提示效果;    
   
   
procedure TForm1.Button1MouseMove    
(Sender:TObject;Shift:TShiftState;X,Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.pen.color:=clGreen;    
form1.Canvas.pen.width:=5;    
form1.Canvas.polyline([point(Button1.left,Button1.top),    
point(Button1.left+Button1.width,Button1.top),    
point(Button1.left+Button1.width,Button1.top+Button1.hei    
ght),    
point(Button1.left,Button1.top+Button1.height),    
point(Button1.left,Button1.top)]);    
end;    
   
procedure TForm1.Button2MouseMove    
(Sender:TObject;Shift:TShiftState;X,    
Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.pen.color:=clBlue;    
form1.Canvas.pen.width:=5;    
form1.Canvas.polyline([point(Button2.left,Button2.top),    
point(Button2.left+Button2.width,Button2.top),    
point(Button2.left+Button2.width,Button2.top+Button2.hei    
ght),    
point(Button2.left,Button2.top+Button2.height),    
point(Button2.left,Button2.top)]);    
end;    
   
procedure TForm1.FormMouseMove    
(Sender:TObject;Shift:TShiftState;X,    
Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.pen.color:=clRed;    
form1.Canvas.pen.width:=3;    
form1.Canvas.polyline([point(0,0),point(form1.width-    
10,0),    
point(form1.width-10,form1.height-30),    
point(0,form1.height-30),point(0,0)]);    
end;    
   
   
   
3.为图形按钮或其它控件安装动态帮助功能,此处主要使用它的    
字符串显示功能,也就是当鼠标移到指定控件上时,在其周围适当    
位置显示相应的字符串,当鼠标离开时通过图像覆盖动作使字符    
串消失,也可以使用一个简单的命令完成即form1.repaint,它的    
作用是使FORM1内的所有控件全部重新绘制,这样即可快速清除    
原来显示的字符;编程时主要使用各个控件的MouseMove()事件;    
比如可在窗口中安放两个按钮,并安排如下代码,运行之后当鼠标    
移到相应按钮上时,就会在其上方显示相应的提示信息,鼠标移到    
窗口空白处则会在窗口的左下角显示"OK"字样;    
   
   
procedure TForm1.Button1MouseMove    
(Sender:TObject;Shift:TShiftState;X,Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.brush.color:=clGreen;    
form1.Canvas.font.size:=8;    
form1.Canvas.font.color:=$1200ffff;    
form1.Canvas.TextOut(Button1.left,    
Button1.top-15,'OPENFILE');    
end;    
   
procedure TForm1.Button2MouseMove    
(Sender:TObject;Shift:TShiftState;X,Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.font.size:=8;    
form1.Canvas.brush.color:=clRed;    
form1.Canvas.font.color:=$1200ffff;    
form1.Canvas.TextOut(Button2.left,Button2.top-    
15,'EXIT');    
end;    
   
procedure TForm1.FormMouseMove    
(Sender:TObject;Shift:TShiftState;X,    
Y:Integer);    
begin    
form1.repaint;    
form1.Canvas.font.size:=12;    
form1.Canvas.brush.color:=clBlue;    
form1.Canvas.font.color:=$00ffffff;    
form1.Canvas.TextOut(0,form1.height-50,'OK');    
end;    
   
   
   
4.仿电视移动字幕或图像,用此方法制作移动字幕的基本方法是:    
首先选定一个可作为画布的控件,比如FORM或IMAGE,然后用一种    
填充颜色填满整个画布,在画布的固定位置显示一个特殊前景色    
固定尺寸的字符串,在TIMER控件中定时连续改变显示字符串的    
位置,由于原来位置的字符串不能自动消失,所以需要用与填充颜    
色相同颜色的线条覆盖多余部分,这样即可实现平滑的字幕移动    
效果;实现图像移动的方法:可事先定义Bitmap类和Rect类变量,    
在程序运行阶段建立Bitmap和Rect对象,并在Bitmap中装入指    
定的图像文件,同时把对象Bitmap装入Rect对象中实现图像的    
显示,然后在Timer控件中定时连续改变Rect的坐标值,并用与    
填充颜色相同的线条覆盖遗留图像部分,即可以实现图像的平稳    
移动;采用上述方法实现的字符串或图像移动操作,其效果平稳，    
无任何闪烁或抖动现象，视觉效果极佳，并且不需要事先建立控    
件，完全由程序代码实现，具有相当多的优点；编程举例:在窗    
体中安放时间控件TIMER1、图像框IMAGE1,定义TRECT及TBITMAP    
型变量,并在FormCreate和Timer1Timer事件中安排如下代码,    
程序运行之后即会在图像框中出现至下而上的移动字幕及图像效    
果,并从顶部消失,之后重新从底部出现;    
   
   
var{定义变量}    
Form1:TForm1;    
x,tt,l,h:integer;    
pic:Trect;    
map:Tbitmap;    
{具体动画演示代码}    
procedure TForm1.Timer1Timer(Sender:TObject);    
begin    
x:=x-1;    
tt:=tt-1;    
ifx<-160then
x:=image1.height+20;
tt:=x+80;
image1.Canvas.font.size:=18;
image1.Canvas.font.color:=$1200ffff;
image1.Canvas.TextOut(10,x,'OK字幕移动演示');
image1.Canvas.font.size:=12;
image1.Canvas.font.color:=$120000ff;
image1.Canvas.TextOut(20,x+50,'字体变色效果演示');
l:=image1.Canvas.textwidth('字体变色效果演示');
h:=image1.Canvas.textheight('字体变色效果演示');
image1.Canvas.pen.color:=clGreen;
image1.Canvas.moveto(20,h+x+50-2);
image1.Canvas.lineto(20+l,h+x+50-2);
pic.topleft.x:=30;
pic.topleft.y:=tt;
pic.bottomright.x:=pic.topleft.x+100;
pic.bottomright.y:=pic.topleft.y+80;
image1.canvas.stretchdraw(pic,map);
image1.Canvas.pen.color:=clGreen;
image1.Canvas.moveto(0,pic.topleft.y+80);
image1.Canvas.lineto(pic.topleft.x+100,pic.topleft.y+80)
;
end;
{以下设置动画初值}
procedure TForm1.FormCreate(Sender:TObject);
begin
timer1.enabled:=true;
timer1.Interval:=10;
x:=image1.height+20;
tt:=x+80;
form1.repaint;
image1.Canvas.brush.color:=clGreen;
pic:=Rect(0,0,image1.width,image1.height);
image1.Canvas.FillRect(pic);
pic:=Rect(-1,-1,1,1);
map:=Tbitmap.create;
map.loadfromfile('d:\windows\256color.bmp');
image1.canvas.stretchdraw(pic,map);
end;