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));