首页 > 代码库 > 美丽渐变色的Form
美丽渐变色的Form
一直都非常喜欢渐变色的界面，但是没想到漂亮的渐变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会把界面上所有控件都会遮住。
美丽渐变色的Form
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。