【整理】控件透明

设置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