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

---

第一种方法
  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

发表于 @ 2005年06月14日　23:37:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:【原创】清空目录(附源码) | 新一篇:【收藏】男人25岁前的忠告