如何实现带阴影效果的窗体，马上结贴

Question

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

Answer 1

用GDIPLUS，如果觉得我回答的可以就帮我看看我的淘宝客网站,http://www.kkxxm.com，提点修改意见

Answer 2

借花献佛哦
1、
http://topic.csdn.net/u/20090815/02/deee6606-c97c-44c8-bd38-5edce02cd9d7.html2、
PNG + GDI+推荐第一种，感觉比第二种更真实。

Answer 3

如果你只实现和系统hint一样的阴影，我认为以上都是太复杂了，根本没必要请 google 关键字：
WindowClass.style or CS_DROPSHADOW如果搞不定在 message 我吧

Answer 4

楼主给你一个窗体阴影的代码：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;