Delphi制作立体窗口阴影效果，这个阴影看上去很明显，不过不是线性的，线性的实现起来要比这种阴影复杂一些。　　ShadowWidth:integer;//用于确定阴影的宽度或高度　　RightShadow:TForm;//主窗口的右边产生一个阴影窗口　　BottomShadow:TForm;//主窗口的下部产生一个阴影窗口　　procedureWMWindowPosChanged(varMsg:TWMWindowPosChanged);messagewm_windowposchanged;