关于AnimateWindow setwindowrgn的问题，求教！

Question

我先用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窗体效果

Answer 1

这个应该跟操作系统的主题有关。窗体效果都是调win底层，底层不支持就没法用。如果想要淡入淡出效果可以设置窗体透明度。

Answer 2

我也觉得可能是主题引起的我现在也是用的timer  10毫秒 改变一次透明度看起来效果也差不多了。不过 这api有这毛病 还真奇怪