如何在程序开启时显示图片(30分)

  • 主题发起人 主题发起人 andyzhouap98111
  • 开始时间 开始时间
A

andyzhouap98111

Unregistered / Unconfirmed
GUEST, unregistred user!
像Delphi启动一样的?
方法很多,主窗体启动时,启动一个form,隔一段时间关闭就是一个最简单的列子!
 
不成啊
启动一个Form只显示Form不显示图片这个方法不成
 
你显示的这个Form上放一个TImage组件,加载一个图片不就得了?
 
你那种方法是不成的
我已经用了一个线程来运动一个面版了,但它还是只显示面版不显面版上的图片
原因在它还要创建其它面版
 
还应该是个很常见的问题怎么就没有人回答得了
 
我看楼主的问题标题,好像很简单的,但是越看越大雾,
不知道楼主要具体达到什么效果?
在这个过程中遇到了什么困难?
 
简单的才是最好的,相信我。你就做一启动窗体何必还要用什么线程?
 
我想楼主要的是启动封面的功能吧,就想delphi启动时的那样。
 
需要创建线程吗?
不需要吗?
需要吗?
不需要吗?
需要吗?
不需要吗?
楼主不要那么认真,我只是来接点儿分数的,需要吗?
 
现在是在一开始启动窗口是不成的,窗口是启动了,但他里面的图片就是不出来
 
做启动画面,不需要用什么线程,在dpr里,先创建带一个图片的窗体,显示之,然后再创建你需要的一些全局变量,如果要有一个画面停顿的效果,直接sleep几秒钟也行,然后释放该显示图片的窗体,再创建主窗体,就可以了。
 
楼主的目的清楚了,一般情况用 zqw0117 兄的方法就可以了,那楼主在实现的时候遇到什么问题呢?
是显示窗体,但是窗体上面的图片没有显示出来吗?
 
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Form2.Show;
Application.ProcessMessages;
Sleep(2000);
FreeAndNil(Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;

惭愧,还真是显示窗体不显示图片,加上ProcessMessages那一句就可以了。
 
在启动窗口(应该叫Splash窗口)的OnShow事件里面,加一句Self.Update;
 
看来你看少了一点我要的是在图片显示的时间,程序还有创建其它的窗体直到所有窗体创建完成
 
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Form2.Show;
Form2.Update;
//Application.ProcessMessages;
Sleep(2000);
FreeAndNil(Form2);
Form1.Show;
Application.Run;

在这个例子里,Form1是在Form2的显示期内被创建的了,你在form1的oncreate里想创建什么都行了啊。
 
楼主是在程序启动的时候事务过于繁忙,而使图片每能显示出来吗?
那可以控制一下工程单元代码执行,等待显示图片的窗体完全显示后再进行其它窗体的 Create 就可以了。
 
晕我写少了一个UPdate
 
后退
顶部