不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

高分求窗口显示效果。

楼主kevin_gao（困了！累了！睡觉了！）2001-12-01 01:06:26 在 Delphi / VCL组件开发及应用提问

如何让自己的窗口具有弹出式菜单一样的效果。一是动画效果，二是根据位置自动变换显示方向。问题点数：100、回复次数：15Top

1 楼net_z（）回复于 2001-12-01 01:10:06 得分 0

win2000中有相关的API,anm...Top

2 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-12-01 01:36:23 得分 20

楼上的能详细点说吗？Top

3 楼VSaber（☆浪人☆）回复于 2001-12-01 01:36:33 得分 0

AnimateWindowTop

4 楼cobi（我是小新）回复于 2001-12-01 08:45:14 得分 0

AnimateWindow Top

5 楼ecamel（沙漠之舟）回复于 2001-12-01 09:04:24 得分 0

关注Top

6 楼Greenberet（百萬石）回复于 2001-12-01 13:10:05 得分 0

AnimateWindow(Handle,300,16);
^^----> 效果(可自定义个随机数“X”，取值范围 0<X<查查)
Top

7 楼larry_l（larry_l）回复于 2001-12-01 13:27:37 得分 0

关注Top

8 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-12-02 16:01:23 得分 0

AnimateWindow我也知道，不过感觉不太好用。
AnimateWindow好象只有放在Create里才比较好，如果窗口已经创建好，而只是hide了，然后用AnimateWindow好象就不太好用了，大家帮忙看看。Top

9 楼xueyin（雪莹）回复于 2001-12-02 18:01:03 得分 80

1: AnimateWindow(Form1.Handle,1000,AW_HOR_POSITIVE+AW_ACTIVATE+AW_SLIDE);
2: AnimateWindow(Form1.Handle,1000,AW_HOR_NEGATIVE+AW_ACTIVATE+AW_SLIDE);
3: AnimateWindow(Form1.Handle,1000,AW_VER_POSITIVE+AW_ACTIVATE+AW_SLIDE);
4: AnimateWindow(Form1.Handle,1000,AW_VER_NEGATIVE+AW_ACTIVATE+AW_SLIDE);
5: AnimateWindow(Form1.Handle,1000,AW_CENTER+AW_ACTIVATE+AW_SLIDE);
6: AnimateWindow(Form1.Handle,1000,AW_BLEND+AW_ACTIVATE);

这是显示特效的函数. 加在窗体的show事件里头.就可以了.

不过有一个问题, 用它显示特效,窗体有些控件不显示. (这没问题,你设置一下控件的属性, 好像是d开头的单词, 具体也记不起来了)Top

10 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-12-03 09:20:14 得分 0

楼上的我试过，感觉还是不够自然。
能不能跟弹出菜单一样的呢？
还有显示的位置，能不能象弹出菜单那样智能，始终使菜单显示在屏幕内部。必须要自己一个个坐标判断？
Top

11 楼kevin_gao（困了！累了！睡觉了！）回复于 2001-12-03 09:50:51 得分 0

这个可以动态显示panel吗？Top

12 楼xxmmmx（踢踏）回复于 2001-12-03 11:07:54 得分 0

to：　xueyin(雪莹)　
那几个参数能否详细的讲解一下？
我用第一个函数来显示showmodal的TempForm时，导致整个程序的不能访问，鼠标点击程序的界面，就会有嘀嘀的警告声，使用Show来显示，程序出错。
TempForm设置成居中显示，显示完动画后，它会从显示的地方跳到中央，有没有解决的方法？Top

13 楼szchengyu（happy.net）回复于 2001-12-03 12:36:54 得分 0

g z Top

14 楼Linux2001（闭关开发中）回复于 2001-12-03 13:35:22 得分 0

我觉得AnimateWindow这个函数在win98下,好象无法实现渐出渐入效果啊Top

15 楼lubing317（天行者）回复于 2001-12-12 23:16:12 得分 0

GOODTop