|
 |
栏目导栏 |
|
| |
|
|
|
|
|
资料搜索 |
|
| |
|
|
|
|
|
热门文章 |
|
| |
|
|
|
|
|
最新文章 |
|
| |
|
|
|
| |
| |
|
|
|
|
设置Richedit背景透明，效果还可以，但是设置Memo和Edit等时效果不是很理想。代码来源与CSDN社区。bwxLinux联盟
提供两种方法，其实两种方法大同小异。bwxLinux联盟
bwxLinux联盟
bwxLinux联盟
bwxLinux联盟
--------------------------------------------------------------------------------bwxLinux联盟
第一种方法bwxLinux联盟
bwxLinux联盟
RichEdit1.Brush.Style := bsClear;bwxLinux联盟
SetWindowLong(RichEdit1.Handle,GWL_EXSTYLE,GetWindowLong(RichEdit1.Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT); |
bwxLinux联盟
第二种方法bwxLinux联盟
bwxLinux联盟
typebwxLinux联盟
TTransparentGroupBox = class(TCustomGroupBox)bwxLinux联盟
privatebwxLinux联盟
procedure WMEraseBkGnd(var Msg: TWMEraseBkGnd); message WM_ERASEBKGND;bwxLinux联盟
protectedbwxLinux联盟
procedure CreateParams(var Params: TCreateParams); override;bwxLinux联盟
publishedbwxLinux联盟
//....bwxLinux联盟
end;bwxLinux联盟
bwxLinux联盟
implementationbwxLinux联盟
bwxLinux联盟
procedure TTransparentGroupbox.CreateParams(var Params: TCreateParams);bwxLinux联盟
beginbwxLinux联盟
inherited CreateParams(Params);bwxLinux联盟
Params.ExStyle := Params.ExStyle or WS_EX_TRANSPARENT;bwxLinux联盟
end;bwxLinux联盟
bwxLinux联盟
procedure TTransparentGroupbox.WMEraseBkGnd(var Msg: TWMEraseBkGnd);bwxLinux联盟
beginbwxLinux联盟
SetBkMode(Msg.DC, TRANSPARENT);bwxLinux联盟
Msg.Result := 1;bwxLinux联盟
end;bwxLinux联盟
|
bwxLinux联盟
bwxLinux联盟
--------------------------------------------------------------------------------bwxLinux联盟
Api函数解释如下：bwxLinux联盟
GetWindowLong ：从指定窗口的结构中取得信息bwxLinux联盟
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windowclassesbwxLinux联盟
/windowclassreference/windowclassfunctions/getwindowlong.aspbwxLinux联盟
SetWindowLong：在窗口结构中为指定的窗口设置信息bwxLinux联盟
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/windowclassesbwxLinux联盟
/windowclassreference/windowclassfunctions/setwindowlong.asp
Linux联盟收集整理 ,转贴请标明原始链接,如有任何疑问欢迎来本站Linux论坛讨论 |
|
|
|
|
|
