象一些软件的闪现窗口是怎么实现的!(30分)

象一些软件的闪现窗口是怎么实现的!

我想在闪现窗口里完成数据库链接及读操作.!并在窗口中的一个LBABLE空件中显示出进
行了的各项操作,等操作完成后,再显示主窗口,要怎么办？!

你可以参考以下实现：


程序运行前显示LOGO窗体

在DPR工程文件中:修改

begin
logoform := TLogoform.Create(nil);
try
logoform.Show;{ NOTE! show! NOT showmodal }
logoform.Update;
诸如Application.CreateForm()等函数
finally
logoform.Hide;
logoform.Release;
logoform.free;
end;
Application.Run;
end;

可在主窗口的OnCreate事件中控制LOGO窗口的延时时间，以下例程延时3秒。

program TMainForm.FormCreate(sender:Tobject);
var
currentTime:LongInt;
begin
currentTime:=GetTickCount div 1000;
while ((GetTickCount div 1000)<(currentTime+3)
do {不做任何事);
end;

另一方法
在主窗口的OnShow(较好)或OnActivate事件中调用LOGO窗口的ShowModal方法，在LOGO窗口上放置一Timer，Timer的OnTimer事件中执行自身的关闭(Close)，在Timer的Interval中设置延时。

还可使LOGO窗口的OnClick事件也执行自身的关闭。

j