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));
用户评论