透明的控件Groupbox,RadioGroup

最新推荐文章于 2024-03-19 12:24:41 发布

原创最新推荐文章于 2024-03-19 12:24:41 发布 · 1.9k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#interface #class #windows

Delphi CSDN Answer 专栏收录该内容

32 篇文章

订阅专栏

博客主要展示了在Windows环境下，通过interface定义了TTransGroupBox和TTransRadioGroup两个类，并重写了CreateParams和WMEraseBkGnd方法，以实现控件的透明效果，最后还给出了注册组件的代码及相关参考链接。

interface

uses Windows, Messages, Controls, Classes, StdCtrls, ExtCtrls;

type

TTransGroupBox = class(TGroupBox)
private
protected
procedure WMEraseBkGnd(Var msg: TWMEraseBkGnd); message WM_ERASEBKGND;
public
procedure CreateParams(Var params: TCreateParams); override;
published
end;

TTransRadioGroup = class(TRadioGroup)
private
protected
procedure WMEraseBkGnd(Var msg: TWMEraseBkGnd); message WM_ERASEBKGND;
public
procedure CreateParams(Var params: TCreateParams); override;
published
end;

procedure Register;

implementation

{ TTransGroupbox }
procedure TTransGroupbox.CreateParams(Var Params: TCreateParams);
begin
inherited CreateParams(params);
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TTransGroupbox.WMEraseBkGnd(Var msg: TWMEraseBkGnd);
begin
SetBkMode(Msg.DC, Windows.TRANSPARENT);
Msg.result := 1;
end;

{ TTransRadioGroup }
procedure TTransRadioGroup.CreateParams(Var Params: TCreateParams);
begin
inherited CreateParams(params);
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TTransRadioGroup.WMEraseBkGnd(Var msg: TWMEraseBkGnd);
begin
SetBkMode(Msg.DC, Windows.TRANSPARENT);
Msg.result := 1;
end;

procedure Register;
begin
RegisterComponents('Transparent-VCL', [TTransGroupBox,TTransRadioGroup]);
end;
//要是对bcb有兴趣，这也有个实现http://blog.csdn.net/cker/archive/2004/06/23/24110.aspx