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;
移动无边框窗体
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;
完美PNG半透明窗体解决方案
当年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函数来生成背景窗体，效果是一样的，看个人喜好。