疑问！

Question

用过千千静听的可以看出程序关闭时有个程序颜色变浅最后退出的效果。我也想做一个。我是这样做的：
用一个timer控件，enabled设为false，
用一个FormCloseQuery加上代码
canclose:=false;
if Application.MessageBox('确实要关闭吗？', '请确认', MB_iconinformation+MB_YESNO)=idyes
then begin
timer2.enabled:=true;
goto programtime;
programend:
canclose:=true;
end;timer代码（时间间隔为100毫秒):
programtime:
while form1.AlphaBlendValue>0 do
  form1.AlphaBlendValue:=form1.AlphaBlendValue-60;
goto programend;
怎么让这个程序段能连接起来达到目的！
或者您也可以给我别的可以做到这一点的程序代码，谢谢了！

Answer 1

我试图用label定义，但是找不到定义的位置，问问大家！

Answer 2

不知道我是不是错误的理解了你的意思，如果按照你的设计目的的话，完全不需要TIMEER来控制，作一个循环就可以了，用sleep()来控制，还有我不明白你要用label干什么啊？？

Answer 3

while form1.AlphaBlendValue>150 do
begin
form1.AlphaBlendValue:=form1.AlphaBlendValue-10;
sleep(100);
end;