红 红蚂蚁 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #1 我的启动界面,如何才能做好似瑞星的启动界面那样动态地渐隐消失呢?
S shijunwu Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #2 很简单, 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;
很简单, 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;
索 索利翁 Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #5 shijunwu的办法不错。 不过,可以试试 windows.AnimateWindow(handle,200,AW_BLEND);//渐变
W wjh_wy Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-03 #6 实现窗口的淡入淡出: http://www.delphibbs.com/keylife/iblog_show.asp?xid=5765