文件名称：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)