delphi用两种方法快速简单的实现窗口淡入淡出

AnimateWindow(Form1.Handle,1000,AW_BLEND);//淡入
AnimateWindow(Form1.Handle,1000,AW_HIDE or AW_BLEND);//淡出
当然你也可以
将AlphaBlend属性设为True，然后在Timer组件中随着时间改变AlphaBlendValue的
值（0-255）即可。
很有用的！