如何实现在一个窗口中打开另一个窗口(50分)

  • 主题发起人 主题发起人 mmk_008
  • 开始时间 开始时间
M

mmk_008

Unregistered / Unconfirmed
GUEST, unregistred user!
我想做一个程序的封面,可是我想不起来封面关闭后如何打开正式的软件界面,该用那个方法来实现呢?帮帮忙,给提个醒。谢谢!
 
不是在封面关闭后打开正式的软件界面,而是在打开正式的软件界面之前显示封面.
在工程文件里改动.
Application.Init;
SplashForm:=TSplashForm.Create(Application);
SplashForm.Show;
...
SplashForm.Hide;
SplashForm.Free;
Application.Run

 

很简单的。你在工程文件里,加入如下代码就可以了。
假设你的封面窗口为 prompt;

begin
Application.Initialize;
prompt :=Tprompt.create(nil);
prompt.show;
prompt.update;
//在这里创建主窗体
main :=TfrmMain.create(application);
//如果有登录窗体,可以在此创建。
logging :=Tlogging.create(main);
Prompt.realese ;// 释放封面窗体.
main.show;
Logging.showmodal;
Application.run;
end;

这个方法已经可以达到你的要求,当然还有别的方法的。
比如可以在单元的initialization 部分进行处理。
 
创建窗口
application.CreateForm(TForm2,form2);
form2.show; //先不显示
在form1的退出时使用form2.show
 
c2008,请你说得详细些。添加在哪个窗体的哪个位置?我使用的是5.0,在form的方法中并没有show这个方法,你是如何做的?
 
简单:参考一下!
http://www.delphibbs.com/delphibbs/dispq.asp?lid=576942
 
后退
顶部