如何使一个form显示时从中间一点一点渐出显示,直到整个完全显示(10分)

  • 主题发起人 主题发起人 tuoniao055
  • 开始时间 开始时间
T

tuoniao055

Unregistered / Unconfirmed
GUEST, unregistred user!
现在在做一个多媒体的东东,我想让主界面别致一些。让form显示时从中间一点一点渐出显示,直到整个完全显示。关闭时按相反的一点一点缩小,直到关闭。
 
在本次比赛的作品中有个原码类似,自己到相关网上下载吧。
 
是alm大塞吗?
 
如果你是使用win2k以上的系统,那么有个api函数可以实现:AnimateWindow,
你可以在form1的show事件加上:
AnimateWindow(form1.Handle,3000, AW_CENTER);
form1.SetFocus;
 
我先是是,不行再统治你.分等成功后在给,毫巴.
 
wanbb的说得不对:
window98第二版(4.10.2222 A)也有AnimateWindow函数。
另外添上如下事件:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(self.Handle,2000, AW_CENTER+AW_HIDE);
end;
//获得垮塌效果!
 
procedure TForm1.FormShow(Sender: TObject);
begin
AnimateWindow(self.Handle,1000, AW_CENTER);
form1.SetFocus;
Form1.Repaint;
end;
 
你们的方法有缺点,就是当显示出来后,大小都一样,比如我向用此放发显示一个小一点的窗体,可出来后还是那么大,你们也可以事实,我的要求是当显示出来后窗体的大小不便。关闭时我要的效果和显示时一样,只是由大变小,逐渐消失,而不是跨塌,还请各位想象办法
 
跨塌就是由大到小逐渐消失呀!
还是没听懂你上面所说的意思!
另外提醒的是:要上述语句后要添加上:form1.refresh;
让所有控件重绘,防止有的控件得不到显示.
 
xie xie nimen wo zhi dao le
 

Similar threads

回复
0
查看
832
不得闲
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部