拉动的效果如何做？

Question

我想在FormCreate中能不能用一个循环来控制Form的位置或大小。

Answer 1

一个方法使用一个循环，控制Form的位置即可。
一个方法使用AnimateWindow() API，我用了一下，淡出和PopUp还可以，其他的我总是搞不定。

Answer 2

用代码的话，应该类似：
for i:=0 to 100 do
 form1.left:=form1.left+i;

Answer 3

NetAnts Job: "FormContv15.zip"
Completed: 2001年2月6日 2:59:48
Url: ftp://soft:[email protected]/FormContv15.zip
Comment: Formcontainer&Transition effects v.15  你想有类似netants的那种窗体左右弹出效果吗？ 你想有类似safeclean utility3的那种窗体alpha fadein, fadeout的半透明效果吗   你想有自己定义的窗体特效吗？ 你想有将任意的窗体加入另一窗体的效果吗？ 那么请试试 FormContainer & Transition effects
File size: 889624

Answer 4

NetAnts Job: "FormContv15.zip"
Url: ftp://soft:[email protected]/FormContv15.zip
Comment: Formcontainer&Transition effects v.15  你想有类似netants的那种窗体左右弹出效果吗？ 你想有类似safeclean utility3的那种窗体alpha fadein, fadeout的半透明效果吗   你想有自己定义的窗体特效吗？ 你想有将任意的窗体加入另一窗体的效果吗？ 那么请试试 FormContainer & Transition effects
File size: 889624

Answer 5

to kingron: 我用animatwindow的淡出怎么不行？？？  只有滑动有效，淡出时，只有窗体上的可视化控件可见，窗体本身看不见。滑动时，如果把窗体的初始位置定义为 screencenter ，滑动效果不佳，滑出后窗体才跳到
screencenter,非常的不爽。  兄台有研究吗？？？

Answer 6

改变坐标是可以，不过Form上面东西多的时候抖得厉害。AnimateWindow我怎么在Help里查不到啊？怎么用给一段代码好码？ftp://soft:[email protected]/FormContv15.zip好像Down不下来。其实我要的效果是收缩和展开，只不过这个过程要平滑，
所以仅仅移动坐标应该是不行的。
一个窗体怎么做成收缩和展开的效果啊？就像苹果的QTimer一样。