首页 >> 读书频道 >> 电脑 >> 在Delphi编程中创建一个启动闪现窗
 
· 子目录级的文件查询的实现
· 主要上学不到东西
· Rave Reports
· Rave报表介绍之二:
· Rave结构
· RAVE中Band的Ba
· TRvCustomCon
· RAVE中TRvSyst
· 如何显示中文化的打印预览
· Rave5之Memo控件
· rave将页面设置为横向
· RAVE中如何设置纸张大
 
· 红楼梦:120回全本[清
· 常见图像文件格式详解
· 拉封丹寓言
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在Delphi编程中创建一个启动闪现窗


查看有无更新版本

关键字:Delphi/Pascal 2006-9-22

 

通常写得好的Windows程序显示一个启动提示或封面,也叫做闪现窗口。
由于工程本身创建了程序的主窗口,一般情况下主窗口最先出现, 那么闪现
窗口如何出现在主窗口之前。
如果我们将主窗口的可视(Visible)属性设置为假,于工程启动时,是否能
将主窗口暂时隐藏起来,以使闪现屏幕最先出现呢?答案是不能。 因为应用程序
自动在适当时候,使Form可视。(注:当一个Form用做子窗口或对话框, 不需要
它们时,可视(Visible)属性设为假,可隐藏起Form。)
那么我们怎么解决这个问题呢?有以下两种方法:
方法一:调用Showmodal函数来实现。Showmodal方式使一个窗口为激活窗口, 和
Show相似,但它令窗口模式化。现举一例说明:
⒈开始一个新工程。给表格起名为MainForm,MainForm的单元起名为Main, 工程文
件起名为Test。
⒉在MainForm中插入一个Button部件,将其Caption属性设为“关闭”,为该部件
的OnClick事件创建一个过程,并在过程的begin和end之间插入Close语句。
⒊在应用程序添加一个表格,将这个表格起名为MoveForm,MoveForm 的单元起名
为Move。
⒋为便于演示,在MoveForm中插入一个Label部件,设置其Caption 属性为“欢迎
进入本系统”。
⒌建立两个表格之间的关联。在Unit Main的 implementation 中加入语句 uses
move;
再为MainForm创建OnActivate事件。
procedure TMainForm.FormActivate(sender:TObject);
begin
MoveForm.Showmodal;
end;
⒍从Component模板的System类别中选择一个计时器(Timer),添加入 MoveForm
表格中,设置其Interval属性为3000(可根据需要自定义),再为其OnTimer事件
添加语句
close;
加入一个Timer部件目的是用以控制闪现窗口显示时间。在此, MoveForm显示了3
秒钟后关闭,主窗口MainForm自动被激活。
⒎编译、运行程序,就能得到延迟为3秒的闪现窗口。
方法二:你可通过修改工程文件中的源代码来实现,这在Delphi 的编程中是很少
见的。现举一例具体说明:
前四步同方法一。
⒌选择View/Project Manager,击Option按钮,选择结果Project Option 对话底
部的Forms页栏目。注意,MainForm和MoveForm是在Auto-create forms 列表中。
选择MoveForm并击右键头按钮,把这个表格移到 Available forms 。 所有的
Delphi表格通过缺省方式自动在内存中建立, 因此它们要消耗内存和系统资源。
在类似这里(程序运行时创建一个表格)的情况下, 你应该将表格从自动创建列
表格中去掉。
⒍下一步修改工程的源代码。选择View/Project Source,修改begin和end之间的
语句如下:
程序清单Test.Dpr
program Test
uses
forms,
Main in 'MAIN.PAS'{MainForm},
Move in 'Move.PAS'{MoveForm}

{$R *.RES}

begin
MoveForm:=TMoveForm.Create(Application);{Create创建闪现窗口对象}
MoveForm.Show;
MoveForm.Update;
Application.CreateForm(TMainForm,MainForm);
MoveForm.Hide;
MoveForm.Free;{Free从内存中释放对象}
Application.Run;
end.
第一条语句创建了对象,该对象存在内存中,但还不能看见, 为了让它出现并更
新它的内容,调用对象的Show和Update成员函数:Show和Update。 当闪现窗口使
用完后,用Hide函数将它隐藏起来,然后用Free函数释放它所占据的内存。
⒎如果此刻你编译和运行程序,MoveForm窗口一闪而过, 你可能未来得及看
清。为使MoveForm窗口显示几秒种,我们可为MainForm的OnCreate 事件创建一个
处理程序,延迟MoveForm窗口的显现时间。
program TMainForm.FormCreate(sender:Tobject);
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3) do
{不做任何事);
end;
end.
GetTickCount函数返回窗口启动后过去的毫秒数,这个值除以1000 转化为秒数。
此时你编译运行程序,就能得到一个延迟3秒多的闪现窗口。
为闪现窗口添加上Image部件,再对字体及窗口进行修饰,我们就能为应用程
序,创建一个精美的封面或在程序启动时显示重要提示。

在Delphi编程中创建一个启动闪现窗

[ 1 ]
在Delphi编程中创建一个启动闪现窗 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑