Delphi实现窗口的加边框效果，在窗体的最外层加边框，颜色右选，就像为窗口镶了一个彩边的效果，部分代码：Pen:= CreatePen(PS_SOLID, 3, RGB(225, 1, 1)) //创建宽度为3的实现画笔 -Delphi add borders to achieve the effect of the window, in the outermost layer of the form to add a border, choose the right color, just as the effect of a color inlay window edge, part of the code: Pen: = CreatePen (PS_SOLID, 3, RGB (225, 1, 1)) // Create the brush width to achieve 3