首页 / DELPHI / Delphi给窗体镶边-为控件加边框，描边，改变边框颜色

Delphi给窗体镶边-为控件加边框，描边，改变边框颜色

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Delphi给窗体镶边-为控件加边框，描边，改变边框颜色，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1101字，纯文字阅读大概需要2分钟。

内容图文

PS:因为我现在用的电脑是WIN7 64位系统，所以没有实现功能，不知道XP是否可行。

 

            //
            1.定义方法
            procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;

//2.实现方法procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
dc:hDc;
Pen:hPen;
OldPen:hPen;
OldBrush:hBrush;
begininherited;
    //获取本窗口设备上下文
    dc:=GetWindowDC(Handle);
    msg.Result:=1;
    //创建画笔，实线、宽度为l、红色
    Pen:=CreatePen(PS_SOLID,1,RGB(255,0,0));
    //将新创建的画笔选入窗体的设备上下文
    OldPen:=SelectObject(dc,Pen);
    //将系统库存的空画刷入窗体的设备上下文
    OldBrush:=SelectObject(dc,GetStockObject(NULL_BRUSH));
    //给窗体“镶边”
    Rectangle(dc,0,0,Form1.Width,Form1.Height);
    //恢复旧画笔和旧画刷    SelectObject(dc,OldBrush);
    SelectObject(dc,oldPen);
    //删除新创建的画笔，释放系统资源    DeleteObject(Pen);
    //释放设备上下文    ReleaseDC(Handle,Canvas.Handle);
end; 

//3.DBGrid控件描边procedure TForm1.FormPaint(Sender: TObject);
var
Rct:   TRect;
begin
Rct:=Rect(Dbgrid1.Left-1,Dbgrid1.Top-1,Dbgrid1.Left+Dbgrid1.Width+1,Dbgrid1.top+Dbgrid1.Height+1);
with   Form1.Canvas   dobegin
   Pen.Color   :=   clRed;
   Pen.Width   :=   1;
   Brush.Style   :=   bsClear;
   Rectangle(Rct);
end;
end;

http://www.cnblogs.com/FKdelphi/p/4633801.html

原文：http://www.cnblogs.com/findumars/p/5001790.html

内容总结

以上是互联网集市为您收集整理的Delphi给窗体镶边-为控件加边框，描边，改变边框颜色全部内容，希望文章能够帮你解决Delphi给窗体镶边-为控件加边框，描边，改变边框颜色所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1305754.html

来源：【匿名】