delphi如何修改groupbox的边框颜色

Delphi小叮当 2013-12-20 09:19:37
delphi如何修改groupbox的边框颜色

我现在想给groupbox边框改一下颜色增加美观和好区分

但是不知道应该如何

各位如果知道还请告诉我,谢谢
...全文
484 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
Delphi小叮当 2013-12-22
  • 打赏
  • 举报
回复
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;
sololie 2013-12-20
  • 打赏
  • 举报
回复
自己绘制,或者用第三方控件吧
lhy 2013-12-20
  • 打赏
  • 举报
回复
自己做一个类似的,可以修改边框颜色的控件.

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧