读书人

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

发布时间: 2012-02-09 18:22:27 作者: rapoo

如何实现带阴影效果的窗体,马上结贴
本人想在窗体上也实现类似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; 

读书人网 >.NET

热点推荐