delphi透明组件（控件）开发 Delphi控件开发27讲
4. 截获WM_ERASEBKGND, 什么都不做直接返回1.(不搽除背景） 一般有上面3步能成. 有些控件比如TPanel, 在它的paint中用了fillrect, 所以要实现透明的话还要override 它的paint方法， 自己画. 按钮透明需要进一步处理. createparams里加上style := style or BS_OWNERDRAW; 然后在WM_DRAWITEM中自己画吧 //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
我的研究发现 Style := Style and not WS_CLIPCHILDREN; Style := Style and not WS_CLIPSIBLINGS;没有作用。 如果你要改变控件位置和颜色，请拦截WM_MOVE，和CN_CTLCOLOREDIT消息，在里面调用invalidate方法，重绘组件。
阅读inside vcl 和 飞思的组件开发书籍。了解如何选择适当的基类去继承然后扩展成自己的类。建议写控件的朋友应先了解这方面的知识，不要从tobject开始写起。ControlStyle :=ControlStyle - [csOpaque];)很关键，看源代码发现它影响了整个控件的画方法。现在已经实现了透明组件，可是用鼠标移动该组件就出现刷新不够，背景混乱的问题。现在正在阅读timage源代码，看它是如何实现。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至lizi9903@foxmail.com举报，一经查实，本站将立刻删除。
