Delphi 为窗体增加边框.rar

Delphi 为窗体增加边框，大家看下演示截图就明白了，可看到窗体的外框增加了一圈红色的边框，看上去更醒目了。以下是相关的实现代码，仅供参考，完整可编译的实例请下载本源码包： 　　begin 　　 inherited; 　　 aa:= GetWindowDC(handle); 　　 msg.Result := 1; 　　 bb := CreatePen(ps_solid,10,rgb(0,200,0)); 　　 pen:= SelectObject(aa,bb); 　　 brush:= SelectObject(aa,getstockobject(null_brush)); 　　 Rectangle(aa,0,0,form1.Width ,form1.Height ); 　　 SelectObject(aa,brush); 　　 SelectObject(aa,pen); 　　 DeleteObject(bb); 　　 ReleaseDc(handle,canvas.Handle ); 　　end;