标签：blog ar color for div log as tt br
一直都非常喜欢渐变色的界面，但是没想到漂亮的渐变Form原来这么简单。。。实在是没想到。。。看来我不仅技术水平低，脑袋里的创意也是空空如也。。。
-----------------------------------------------------------------------------
procedure TForm1.FormClick(Sender: TObject);
var
i,FormWidth:Integer;
Dct:TRect;
begin
FormWidth:=Form1.Width;
for i:=0 to 255 do
begin
Canvas.Brush.Color:=RGB(0,i,255);
Dct:=Rect(0,i,FormWidth,(i+1)*2);
Canvas.FillRect(Dct);
end;
end;
注意，这样野蛮自绘Form会把界面上所有控件都会遮住。
标签：blog ar color for div log as tt br
原文地址：http://www.cnblogs.com/findumars/p/4156718.html
