本文整理自网络，侵删。
说明:
界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。
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;
相关阅读 >>
Delphi idhttp中设置非标准头信息和读写cookie
Delphi 10分钟10行代码开发app(Delphi 应用案例)
Delphi中操作olevariant、variant和stream
Delphi利用微软sapi实现语音控制(Delphi，tts,sr，灰色代码)_
更多相关阅读请进入《Delphi》频道 >>
