关于AnimateWindow setwindowrgn的有关问题，求教

关于AnimateWindow setwindowrgn的问题，求教！
我先用setwindowrgn设置窗体为圆角窗体。然后使用AnimateWindow做淡入淡出效果。
但是问题来了。。。部分win7上出现。淡入淡出效果的时候   圆角窗体失效。。。。。
而有的win7又工作正常。。。。。


这让我很费解。。。。

具体代码如下。。。求大神指教。。。

FormCreate：
var
  hdwd: THandle;

begin
  hdWd := CreateRoundRectRgn(1, 1, width, height, 28, 28);
  setwindowrgn(handle, hdWd, true);
  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;
  AnimateWindow(Self.Handle, 1000, AW_BLEND or AW_ACTIVATE);
end;


timer关闭：
AnimateWindow(Self.Handle, 1000, AW_HIDE or AW_VER_NEGATIVE );
slef.close; AnimateWindow? setwindowrgn 窗体效果
[解决办法]
这个应该跟操作系统的主题有关。窗体效果都是调win底层，底层不支持就没法用。如果想要淡入淡出效果可以设置窗体透明度。
[解决办法]
改透明度：Form.AlphaBlend