我有这样一段代码,不知怎么调不过(我是很菜)
建成一表单,width=500,设置 Button1其Click代码:
procedure TForm1.Button1Click(Sender:TObject);
var i,j:Integer
Dct:TRect
begin
j:=From1.height
for i:=0 to 255 do
begin
Canvas.Brush.Color:=RGB(255,255,i)
Dct:=Rect(i*2,0,(i+1)*2,j)
Canvas.FillRect(Dct)
end;
end;

给我点鼓励，多谢各位！

你是不是使整个窗体的界面渐变?
form有两个属性Alphablend和Alphablendvalue用于界面渐变很方便。

你这样看行不行啊。
procedure TForm1.Button1Click(Sender:TObject);
var i,j:Integer
Dct:TRect
begin
j:=From1.height
for i:=0 to 255 do
begin
Canvas.Brush.Color:=RGB(255,255,i)
Dct:=Rect(i*2,0,(i+1)*2,j)
Canvas.FillRect(Dct)
sleep(1000);
progressmessage;
end;
end;