【文件属性】：
文件名称：Delphi 为窗体增加边框.rar
文件大小：203KB
文件格式：RAR
更新时间：2022-07-30 03:15:46
Delphi源码-界面编程
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;
【文件预览】：
codesc.net
----为窗体增加边框()
--------dy217.ddp(51B)
--------gc217.dof(2KB)
--------dy217.dfm(2KB)
--------gc217.res(1KB)
--------gc217.dpr(185B)
--------dy217.pas(888B)
--------dy217.dcu(4KB)
--------gc217.exe(450KB)
--------gc217.cfg(420B)