delphi怎么实现界面的渐变？

xing9000 发布于 2006-03-11 14:31， 739 次点击

我有这样一段代码,不知怎么调不过(我是很菜)
建成一表单,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;

3 回复

xing90002006-03-11 14:32

给我点鼓励，多谢各位！

ysp_19842006-03-11 17:39

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

ysp_19842006-03-11 17:50

你这样看行不行啊。
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;