列举实例说明: 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;
