Delphi透明组件开发 good

Posted 朝闻道

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Delphi透明组件开发 good相关的知识,希望对你有一定的参考价值。

透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image)
都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下
四步基本上就成了.

1.在Create中设定ControlStyle :=ControlStyle - [csOpaque];

2. override 它的CreateParams方法, exstyle 里加上WS_EX_TRANSPARENT.

3. 修改它的parent的window style, 去掉WS_CLIPCHILDREN.
inherited CreateParams(Params);
with Params do
begin
{ 完全重画 }
Style := Style and not WS_CLIPCHILDREN;
Style := Style and not WS_CLIPSIBLINGS;
{ 增加透明 }
ExStyle := ExStyle or WS_EX_TRANSPARENT;
end;

4. 截获WM_ERASEBKGND, 什么都不做直接返回1.(不擦除背景)

一般有上面3步能成. 有些控件比如TPanel, 在它的paint中用了fillrect,
所以要实现透明的话还要override 它的paint方法, 自己画.
按钮透明需要进一步处理.
createparams里加上style := style or BS_OWNERDRAW;
然后在WM_DRAWITEM中自己画吧

http://blog.csdn.net/aroc_lo/article/details/3861307

以上是关于Delphi透明组件开发 good的主要内容,如果未能解决你的问题,请参考以下文章

用于包/组件开发的 Delphi 环境设置

Delphi 界面和组件背景透明相关方法

Delphi 组件渐进开发浅谈——由简入繁

Delphi 组件渐进开发浅谈——双简合璧

在Delphi下使用迅雷APlayer组件进行免注册开发

Delphi的组件读写机制