我的启动界面,如何才能做好似瑞星的启动界面那样动态地渐隐消失。。。呢?(50分)

  • 主题发起人 主题发起人 红蚂蚁
  • 开始时间 开始时间

红蚂蚁

Unregistered / Unconfirmed
GUEST, unregistred user!
我的启动界面,如何才能做好似瑞星的启动界面那样动态地渐隐消失呢?
 
很简单,
1.
form1.AlphaBlend=true
form1.AlphaBlendValue=255
2.
在formonclose事件中写如下代码

var
i:integer;
begin
for i:=255 downto 100 do
begin
form1.AlphaBlendValue:=i;
end;
end;
 
to shijunwu
同意
 
又学到了一招,呵呵!

[:D][:D][:D]
 
shijunwu的办法不错。
不过,可以试试
windows.AnimateWindow(handle,200,AW_BLEND);//渐变
 
实现窗口的淡入淡出:
http://www.delphibbs.com/keylife/iblog_show.asp?xid=5765
 
98下呢?哈哈!
 
接受答案了.
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部