怎么实现带阴影效果的窗体，马上结贴

如何实现带阴影效果的窗体，马上结贴
本人想在窗体上也实现类似HINT一样的背影效果，找了整整一天资料也没有收获，还是请教各位大侠，谢谢！

[解决办法]
借花献佛哦
1、
http://topic.csdn.net/u/20090815/02/deee6606-c97c-44c8-bd38-5edce02cd9d7.html

2、
PNG + GDI+

推荐第一种，感觉比第二种更真实。
[解决办法]
楼主给你一个窗体阴影的代码：

Delphi(Pascal) code

procedure ShadeIt(f: TForm; c: TControl; Width: Integer; Color: TColor);var  rect: TRect;  old: TColor;begin  if (c.Visible) then  begin    rect := c.BoundsRect;    rect.Left := rect.Left + Width;    rect.Top := rect.Top + Width;     rect.Right := rect.Right + Width;    rect.Bottom := rect.Bottom + Width;    old := f.Canvas.Brush.Color;    f.Canvas.Brush.Color := Color;    f.Canvas.fillrect(rect);    f.Canvas.Brush.Color := old;  end;end;procedure TForm1.FormPaint(Sender: TObject);var  i: Integer;begin  for i := 0 to Self.ControlCount - 1 do    ShadeIt(Self, Self.Controls[i], 3, clBtnShadow);end;