当前位置：编程学习 > Delphi >>

Delphi 是如何实现渐变窗口背景的？

Delphi 是如何实现渐变窗口背景的？Q:Delphi 实现渐变窗口背景 A:创建一个应用程序，在 Form1 的 OnPaint 事件里面添加如下一段代码： procedure TForm1.FormPaint(Sender: TObject); var i:word; dy,y:real; begin dy:=clientheight/256; y:=0; for i:=255 downto 0 do begin canvas.brush.color:=$00000000+i*$10000; canvas.fillrect(rect(0,round(y),clientwidth,round(y+dy))); y:=y+dy; end;end;

答案：创建一个应用程序，在 Form1 的 OnPaint 事件里面添加如下一段代码：
      procedure TForm1.FormPaint(Sender: TObject);
      var
       i:word;
       dy,y:real;
      begin
       dy:=clientheight/256;
       y:=0;
       for i:=255 downto 0 do
       begin
        canvas.brush.color:=$00000000 i*$10000;
        canvas.fillrect(rect(0,round(y),clientwidth,round(y dy)));
        y:=y dy;
       end;
     end
楼上正解啊。就是格式方面注意点哈，呵呵...由蓝色渐变深黑

上一个：delphi编程中value值是什么意思？
下一个：delphi用for语句实现控件的操作

更多图片编程知识: