delphi如何修改groupbox的边框颜色

Question

自己做一个类似的,可以修改边框颜色的控件.

Answer 1

自己绘制，或者用第三方控件吧

Answer 2

function RGBToColor(R,G,B:Byte): TColor;
begin
  Result:=B Shl 16 Or
          G Shl 8  Or
          R;
end;function judgenumbool(snum:string):boolean;
var i: LongInt;
    f: Double;
begin
 if TryStrToInt(trim(snum),i) or TryStrToFloat(trim(snum), f) then
 result:=true
 else result:=false;
end;procedure TForm1.canvasgroup(var icolor1: Integer; var icolor2: Integer; var icolor3: Integer; var iwidth: Integer; var tgroup:TGroupbox);
var igroupt,igroupl,igrouph,igroupw:integer;
begin
//这直接画出4条线来
   igroupt:=tgroup.Top;
    igroupl:=tgroup.Left;
    igrouph:=tgroup.Height;
    igroupw:=tgroup.Width;
    Canvas.Pen.Color:=iamhack.RGBToColor(icolor1,icolor2,icolor3);
    Canvas.Pen.Width:=iwidth;
    //画第一条线
    Canvas.MoveTo(igroupl,igroupt);
    Canvas.LineTo(igroupl+igroupw,igroupt);
    //画第二条线
    Canvas.MoveTo(igroupl,igroupt);
    Canvas.LineTo(igroupl,igroupt+igrouph);
    //画第三条线
    Canvas.MoveTo(igroupl,igrouph+igroupt);
    Canvas.LineTo(igroupl+igroupw,igroupt+igrouph);
    //第四条线
    Canvas.MoveTo(igroupl+igroupw,igroupt);
    Canvas.LineTo(igroupl+igroupw,igroupt+igrouph);
end;