【整理】控件透明

最新推荐文章于 2021-06-07 15:50:34 发布

原创最新推荐文章于 2021-06-07 15:50:34 发布 · 1.7k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#class #api

1.Delphi 版专栏收录该内容

3 篇文章

订阅专栏

博客介绍了设置Richedit、Memo和Edit等控件背景透明的方法，设置Richedit效果较好，其他控件效果不理想。代码源于优快云社区，提供了两种大同小异的方法，并给出了第二种方法的代码实现。

设置Richedit背景透明，效果还可以，但是设置Memo和Edit等时效果不是很理想。代码来源与优快云社区。
提供两种方法，其实两种方法大同小异。

第一种方法
RichEdit1.Brush.Style := bsClear;
SetWindowLong(RichEdit1.Handle,GWL_EXSTYLE,GetWindowLong(RichEdit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);

第二种方法
type
TTransparentGroupBox = class(TCustomGroupBox)
private
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;
protected
procedure CreateParams(var Params: TCreateParams); override;
published
//....
end;

implementation

procedure TTransparentGroupbox.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;
end;

procedure TTransparentGroupbox.WMEraseBkGnd(var Msg: TWMEraseBkGnd);
begin
SetBkMode(Msg.DC, TRANSPARENT);
Msg.Result := 1;
end;

Api函数解释如下：
GetWindowLong ：从指定窗口的结构中取得信息
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windowclasses/windowclassreference/windowclassfunctions/getwindowlong.asp
SetWindowLong：在窗口结构中为指定的窗口设置信息
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windowclasses/windowclassreference/windowclassfunctions/setwindowlong.asp