自己对DELPHI学习的一点体会

				渐变窗题背景的实现? (2001年5月22日) 
				
				本站更新  分类:界面   作者:  推荐:   阅读次数:156  
				(http://www.codesky.net)  
				
				--------------------------------------------------------------------------------
				渐变窗题背景的实现？
				procedure TForm1.FormPaint(Sender: TObject);
				var 
				i:word;
				dy,y:real;
				begin
				dy:=clientheight/256;
				y:=0;
				for i:=255 downto 0 do
				begin
				canvas.brush.color:=$00000000+i*$10000;
				canvas.fillrect(rect(0,round(y),clientwidth,round(y+dy)));
				y:=y+dy;
				end;
				end;