Edit控件让的背景和Parent的背景一致

[ilove8]

做个控件.
1)继承TEdit控件,功能该控件透明,呈现背景图的效果.
2)控件边框无

[我看见佛]

嘻嘻，我来说最简单的第2个吧。borderStyle=bsNone--无边框

[-HelloWorld-]

给个链接，自己领悟：http://blog.csdn.net/delphiteacher/article/details/6714398

[feiba7288]

http://delphi.cjcsoft.net/viewthread.php?tid=43166 这个好

[hsfzxjy]

透明？设置Alphablend属性

[lqfcu2]

procedure TSkinEdit.DrawParentImage(Control: TControl; DC: HDC);
var
  SaveIndex: Integer;
  P: TPoint;
begin
  if Control.Parent = nil then
    Exit;
  SaveIndex := SaveDC(DC);
  GetViewportOrgEx(DC, P);

  SetViewportOrgEx(DC, P.X - Control.Left, P.Y - Control.Top, nil);
  IntersectClipRect(DC, 0, 0, Control.Parent.ClientWidth, Control.Parent.ClientHeight);

  try
    Control.Parent.Perform(WM_EraseBkgnd, DC, 0);
    Control.Parent.Perform(WM_PrintClient, DC, prf_Client);
  except
  end;
  RestoreDC(DC, SaveIndex);
end;

通过此方法先把控件背景画到自己的DC里，然后自绘EDIT的背景，有很多三方控件支持透明的，看下它们的实现代码就知道原理了