Form的一个出现效果

最新推荐文章于 2023-05-22 15:38:59 发布

weixin_34291004

最新推荐文章于 2023-05-22 15:38:59 发布

阅读量113

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/28088191/archive/2008/06/14/1221949.html

本文介绍了一种不使用AnimateWindow函数实现窗口渐变隐藏的方法，通过创建椭圆区域并逐步缩小其大小来达到平滑过渡的效果。

1,用AnimateWindow函数->有一个缺点,窗体位置必须墨认
2,用如下代码
----------------
procedure TForm1.Button1Click(Sender: TObject);

var

r:thandle;

i:integer;

begin

for i:=1 to trunc(width/1.414) do

begin

r:=CreateEllipticRgn(trunc(width/2)-i,trunc(height/2)-i,trunc(width/2)+i,trunc(height/2)+i);

SetWindowRgn(handle,r,true);

Application.ProcessMessages;

sleep(1);

end;

end;

转载于:https://www.cnblogs.com/28088191/archive/2008/06/14/1221949.html