列举实例说明: 1.新建一个表单,假设其Width为500,设置一个按钮Button1,按 此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下: procedure TForm1.Button1Click(Sender: TObject); var i,j:Integer; Dct:TRect; begin j:=Form1.height; //获得表单高度 for i:=0 to 255 do //此处设置RGB()中一个颜色值 begin Canvas.Brush.Color:=RGB(255,255,i); //每次画矩形的画刷颜色 Dct:=Rect(i＊2,0,(i＋1)＊2,j); //每次刷绘的矩形区域 Canvas.FillRect(Dct); //填充颜色 end; end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
