Question

delphi中form的渐现效果怎么做啊!

本人是delphi新手,在做程序时,想做出来的窗体想windows2000里的窗体一样渐现出来,我定义了多个窗体,我在第一个窗体的onshow里写了以下语句: timer1.enable:=ture; i:=0;(i为全局变量); 在timer1里写: if i<250 then i:=i+2 else timer1.enable:=false; 而其他窗体都是由主窗体form1里的按钮控制创建的,我用的是: 在form1里的botton1.onclick写: with Tform2.create(self) do show; 请问我什么地方出错了!谢谢! 例外,如果我想让popmenu或者mainmenu一类的控键能有渐现效果,该怎么做呢! 然后我在form2.onshow里也写跟form1的onshow里一样的语句,可是我执行时,form1能有渐现效果,但是form2就是一下就出来了,没有一点渐现效果! 多谢指教!!!

Answer 1

在win2000下可将窗体的Alphablend设为True然后循环设置AlphaValue值(0..255) 查看更多答案>>

求采纳