实现带阴影效果的窗体_侧边栏实现带阴影效果的窗体_侧边栏_02
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;
View Code

移动无边框窗体

实现带阴影效果的窗体_侧边栏实现带阴影效果的窗体_侧边栏_02
    procedure WMMove(var Message: TWMMove); message WM_MOVE;
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.WMMove(var Message: TWMMove);
begin
  if TForm(Self.Owner) = nil then
    Exit;
  TForm(Self.Owner).left := Self.left - 7;
  TForm(Self.Owner).Top := Self.Top - 7; // + FDistT;
end;
View Code

完美PNG半透明窗体解决方案

实现带阴影效果的窗体_侧边栏实现带阴影效果的窗体_侧边栏_02
当年Vista系统刚出来的时候，最吸引人的莫过于半透明磨砂的窗体界面了，迷倒了多少人。这个界面技术随即引发了编程界的一阵骚动，很多人都在问：如何实现这一界面效果？当然，在Vista下倒是很简单，系统本身支持，所以几乎不需要写一句代码，但是当时还是XP的天下，于是大家就可以研究在XP下如何实现这一效果。

        最先实现的应该是桌面天气秀，还有笨笨钟，后来鱼鱼软件的鱼鱼桌面秀也成功在XP下模仿了Vista的侧边栏，的确，让人很激动，但是他们保密，问也问不到究竟是用了什么技术，记得当年大富翁论坛(http://www.delphibbs.com 比较著名的Delphi论坛)上还为此进行过讨论，最后有个ID叫小雨哥的人提供了一个方法(当然是不是他原创我不得而知，小雨哥目前在盛大网络，见过一面，无限膜拜中)，下面是Delphi的实现代码：        

var
pt1, pt2 : TPoint;
sz : TSize;
bf : TBlendFunction;
begin
bitmap:=tgpbitmap.Create(PNGFile);//这个PNGFile是具体的PNG图片路径
pt1 := Point(left,top); //窗口做上角的坐标
pt2 := Point(0, 0); //这个就不用说了，一看见（0，0）就应该明白了
sz.cx := bitmap.GetWidth;  //尺寸不要超过图像大小，不然窗口就什么都没有了，连个影子都没有
sz.cy := bitmap.GetHeight;  //同上
bf.BlendOp := AC_SRC_OVER; //这些死记就行了
bf.BlendFlags := 0;                  //同上
if (nTran<0) or (nTran>255) then 
nTran:=255;
bf.SourceConstantAlpha := nTran;  //同上
bf.AlphaFormat := AC_SRC_ALPHA; //同上
DeleteObject(bmp); //前面就是在这里犯的错误，不然占用的内存会无限增大
bitmap.GetHBITMAP(0,bmp); // HBITMAP是windows标准位图格式，支持透明，这里是从tgpbitmap 转化成 HBITMAP
DeleteDC(DC);
DC := CreateCompatibleDC(Canvas.Handle); 
old_bmp := SelectObject(DC, bmp); 
UpdateLayeredWindow(Handle, Canvas.Handle, @pt1, @sz, DC, @pt2,0, @bf,ULW_ALPHA);//调用UpdateLayeredWindow实现
end;
         这个方法其实是生成一个PNG的窗体，我们知道，PNG图片是具有Alpha属性的，所以，如果PNG是半透明磨砂装的，那么生成的窗体也就是半透明磨砂装的，注意，上面的代码需要使用GDIPlus类uses gdipapi, gdipobj;

        我们这里不讨论这段代码，这段代码是别人写的，看似非常完美，比如日期查询器的系统初始化界面就可以由上面的代码生成：



        但是这段代码有个致命的问题，你可以试试在Form上面放一些控件，比如button，edit等，再次编译你会神奇的发现，所有的控件都不显示，这是怎么回事呢？通过查阅MSDN，我们发现问题出在UpdateLayeredWindow函数上。

        MSDN中，关于该函数的Remarks中有这样一段说明：

The UpdateLayeredWindow function maintains the window's appearance on the screen. The windows underneath a layered window do not need to be repainted when they are uncovered due to a call to UpdateLayeredWindow, because the system will automatically repaint them. This permits seamless animation of the layered window.

        大意是说，使用这个函数以后，下一层窗体不会再重新绘制，也就是说，窗体不会响应Onpaint事件来重绘所有控件，导致控件无法看见，但是实际上控件是存在的，你可以在响应位置上点击一下button，你会发现button依然会响应点击事件，但就是看不见。

        这就头疼了，如果不能使用控件，或者说控件看不见，光一个窗体再好看有什么用呢？其实微软貌似是用这个函数做无缝连接动画用的，MSDN说的很清楚嘛：This permits seamless animation of the layered window.

        嗯，好吧，既然这个方法不行，那就换一个吧，于是有人想到了使用2个窗体来解决。

        2个窗体怎么解决呢？其实也很简单，一个窗体作为半透明的PNG放在后面，一个窗体作为放置控件的窗体放在前面，然后只要2个窗体同步移动就可以了，就拿日期查询器来说吧，登陆窗体：



这个窗体上下都有半透明的边框，上面也有控件显示，也许你不好理解，如果我分解一下：



      

        怎么样？这样你就发现了，其实是2个窗体，后面一个背景窗体，前面一个Border:=none的控件窗体，然后两个窗体同步移动即可，这样我们就伪造了一个半透明的窗体。事实上，很多软件也是这么做的，包括有些带阴影的窗体也是同样原理。

        至于同步移动，也很简单，处理下OnMove消息就可以了：

function WndNewProc(Wnd: HWND; uMsg: UINT; wPar: WPARAM; lPar: LPARAM): LRESULT; stdcall;
var 
Rect: TRect;
begin
Result := 0;
case uMsg of
WM_LBUTTONDOWN: SendMessage(Wnd, WM_SYSCOMMAND, SC_MOVE+2, 0);
else
begin
if ((uMsg = WM_MOVING) or (uMsg = WM_MOVE)) and GetWindowRect(Wnd, Rect) then
SetWindowPos(ComponentForm.Handle, 0, Rect.Left, Rect.Top, 0, 0, SWP_NOSIZE);
Result := DefWindowProc(Wnd, uMsg, wPar, lPar);
end;
end;
end;
        我们假设放置控件的窗体名字叫ComponentForm，当我们鼠标左键按下并移动背景窗体的时候，控件窗体跟着同步移动即可。

        当然，有时候我们可以直接用代码生成背景窗体，这样的话可以减少一些程序体积，生成背景窗体我们可以用一个函数叫CreateWindowEx，注意这里要用带Ex的，表示会有附加参数，我们只要把这个函数的第一个参数设置为WS_EX_LAYERED就可以了，他表示一个额外的层属性。

        两个方法都可以，我们既可以直接用2个窗体，也可以用CreateWindowEx函数来生成背景窗体，效果是一样的，看个人喜好。
View Code