文档库

最新最全的文档下载
当前位置:文档库 > delphi闪窗的方法

delphi闪窗的方法

网易 新闻 微博 邮箱 闪电邮 相册 有道 手机邮 印像派 梦幻人生 更多 博客 博客首页 博客话题 热点专题 博客油菜地 找朋友 博客圈子 博客风格 手机博客 短信写博 邮件写博 博客复制 群博客 摄影 主题展区 每日专题 影像故事 高级拍客 摄影人物志 摄影师专访 摄影点评 随便看看
群博客召集令.注册 登录 .. 显示下一条 | 关闭
Mr.Right
不顾一切的去想,于是我们有了梦想。脚踏实地的去做,于是梦想成了现实。
导航
首页 日志 相册 音乐 收藏 博友 关于我 .
日志 阿英
人生一年又一年,只要每年都有所积累,有所成长,都有那么一次自己认为满意的花开时刻就好。即使一时不顺,也要敞开胸怀。生命的荣枯并不是简单的重复,一时的得失不是成败的尺度。花开不是荣耀,而是一个美丽的结束,花谢也不是耻辱,而是一个低调的开始。
加博友 关注他
最新日志
VC6 代码查看 afxwin.h多尊佛名號功德 / 海濤法師西方发愿文受持酒戒 有什么功德?汉译英技巧之“八大戒”汉译英的重要技巧该作者的其他文章
博主推荐
相关日志
随机阅读
首页推荐
实拍多伦多的超级月亮李木森的山城武斗记忆土匪窝里泡温泉情迷世界最美日落地中国居民根本没钱可花让公益和未来都变湿更多>>对“推广广告”提建议


别说我是新人
Happy New Year.Delphi 7实现闪屏默认分类 2010-02-01 21:46:45 阅读234 评论0 字号:大中小 订阅 .

最近帮同学用D7做了一个很小的数据库管理系统,为了提示一些信息和美观而在程序开始运行时设置了一个Splash窗体。
具体的实现方法如下:
1、打开D7新建一个Application,将默认的窗体Form1的Name属性改为frmMain,该窗体为应用程序的主窗体。
2、菜单New>Form,将新建的窗体的Name属性改为frmSplash,BorderStyle属性改为bsNone,展开BorderIcons属性将所有的Icons设置为False,将Caption属性中的窗体标题清空,Position属性改为poScreenCenter,该窗体即Splash窗体。
3、菜单Project>Options,在Forms选项卡中将Main form设置为frmMain,将frmSplash从左侧的Auto-create forms移至右侧的Available forms中,单击OK保存设置。
4、菜单File>Save All,将保存frmMain窗体中代码的Unit1.pas存为Main.pas,将保存Splash窗体中的代码的Unit2.pas存为Splash.pas,工程文件Project1.dpr存为SplashTest.dpr。
5、菜单Project>View Source,在Code Editor中开始编写代码。代码如下:

program SplashTest;

uses
Forms,
SysUtils, //注意引用SysUtils单元,因为延时所用的Sleep过程在该单元中
Main in 'Main.pas' {frmMain},
Splash in 'Splash.pas' {frmSplash};

{$R *.res}

begin
Application.Initialize;

frmSplash:=TfrmSplash.Create(frmSplash); //动态创建frm

Splash窗体
frmSplash.Show; //显示frmSplash窗体
frmSplash.Update;
Sleep(2000); //延时2秒

Application.CreateForm(TfrmMain, frmMain);

frmSplash.Hide; //隐藏frmSplash窗体
frmSplash.Free; //释放frmSplash窗体

Application.Run;
end.

编写完毕后,按下F9运行这个工程即可。会看见Splash窗体首先出现,延时过后Splash窗体消失,显示frmMain窗体。
小结:
1、这里的关键是frmSplash不是应用程序运行时自动创建的,而是通过动态创建生成的,因此首先要将frmSplash从Auto-create forms移至Available forms中,其次要手工编写代码来完成frmSplash窗体的创建和释放。
2、如果不使用Sleep过程来延时的话,frmSplash窗体也是很快的一闪而过,不能起到提示信息的作用,因此必须引用SysUtils单元使用其中的Sleep过程来延时。





--

Anony
专注的力量成就梦想



转发至微博
0人 | 分享到: 阅读(234)| 评论(0)| 引用 (0) |举报 .

别说我是新人
Happy New Year.历史上的今天
俞敏洪:控制不了情绪就做不了大事2009-02-01 17:20:53 人,活着,是一种态度2009-02-01 17:13:01 心理保健最关键三要诀2009-02-01 17:09:01 做人,请记住这十个字2009-02-01 17:01:07 也许事情不是你想象的那样2009-02-01 16:56:29 .相关文章.
最近读者
登录后,您可以在此留下足迹。.
xuji1205
fengyanh .评论
点击登录|昵称:
取消
验证码:换一张 上一页 1... -1-1-1-1-1-1-1... -1下一页..
.





页脚
公司简介 - 联系方法 - 招聘信息 - 客户服务 - 相关法律 - 博客风格 - 手机博客 - 订阅此博客
网易公司版权所有 ?1997-2011