怎么能让欢迎界面WelForm在2秒钟后，WelForm窗口长和宽逐渐缩小到不显示，需要有点动态的视觉效果,然后跳到主界面MainForm 怎么能让欢迎界面WelForm在2秒钟后，WelForm窗口长和宽逐渐缩小到不显示，需要有点动态的视觉效果,然后跳到主界面MainForm 解决方案 » 免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货 不要通过时钟控件通过一个循环，sleep延时，并用Application.processMessage,转移控制权 Windows2000下面好用展开AnimateWindow(handle,300,AW_HIDE or AW_BLEND);合拢AnimateWindow (Handle, 400, AW_CENTER or AW_HIDE); 再给你一个：procedure TForm1.Button1Click(Sender: TObject);begin Randomize; AnimateWindow(handle,2000,AW_HIDE or Random(16)+1);end; 是啊，用AnimateWindow就可以了！ 为什么我跨窗体取得数据去进行数据库保存会保存失败！ 高难度问题-如何在IE工具栏上添加一个带下拉菜单的按钮 在vchelp上开始一个项目，有兴趣加入小组么 简单的mdi问题！ 如何读取WORD文档的属性内容？？？？？100分，不够再加！ 如何在activeform里面，关闭包含它的ie程序？ 用Delphi编写的Pascal编译器下载地址——请看文章内容。 天马流星汗 无法连接到数据库？ 哪儿可以找到汉化后的delphi帮助系统，或部分汉化？我想汉化delphi的帮助系统，请大家提供帮助啊 关于修改ACCESS表记录的小问题,急急急,在线等 怎样清空一个ini文件中的所有内容啊
通过一个循环，sleep延时，并用Application.processMessage,转移控制权
展开
AnimateWindow(handle,300,AW_HIDE or AW_BLEND);
合拢
AnimateWindow (Handle, 400, AW_CENTER or AW_HIDE);
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
AnimateWindow(handle,2000,AW_HIDE or Random(16)+1);
end;