怎么样让登陆窗口在主窗口之前出现呢？？

Question

在 program的 Application.Initialize后
  sleep:=Tsleep.Create(Application);
  sleep.Show;
  sleep.Update;

Answer 1

在主窗体的OnCreate事件中写
LoginForm.ShowModal;
这样即使主窗体先出现，也 无法对主窗体进行操作，

Answer 2

可以修改工程文件
  Application.Initialize;
  Application.CreateForm(Tform1, form1);
  Form1.ShowModel;
  Application.CreateForm(TForm_Main, Form_Main);
  Application.Run;

Answer 3

在主窗体的OnCreate事件中写
LoginForm:=tLoginForm.create(owner);
LoginForm.ShowModal; //显示
LoginForm.free;   //释放
//效果是主窗体已显示但无法操作，当前显示的为LoginForm。另外防止用户关闭当前表单直接调用主窗体可在OnClose事件中进行限制。

Answer 4

假设：
登陆窗口 ：LoginF
主窗口   ：MainF1. 单击 “project/options...”或“Shift+Ctrl+F11”,打开“Project Options”窗口。选择“Forms”页.
2.保证 Main form :MainF.
  把LoginF从 Auto-create forms 中转到 Available forms.表示，LoginF由程序员在需要的时候去创建它。
3.单击 "ok".
4.单击“view/project manager...”,打开“Project manager”窗口。选择“Project1.exe”结点。
5.右键弹出菜单，选择“view source”，打开项目源代码。
6. 将出现下面的相似代码。
begin
  Application.Initialize;
  Application.CreateForm(TMainF, MainF);
  Application.Run;
end.修改如下：begin
  Application.Initialize;
  
  LoginF:=TLoginF.Create(nil);
  LoginF.ShowModal;
  LoginF.free;
  
  Application.CreateForm(TMainF, MainF);
  Application.Run;
end.7.编译运行通过。
8.给分。

Answer 5

同意abc32644(good),w8u(晌马)的做法,都是好方法!

Answer 6

看了一下，个人意见加到主窗体的Onshow中比较安全

Answer 7

Showmodal不行的，你的主窗体没出来如何来个Showmodal.
我给别的公司做的软件是在onpaint事件里调用。
上面诸位的方法好做启动画面。

Answer 8

可以的呀！
我就是在主窗体中的Onshow事件中加的LoginForm.ShowModal呀！

Answer 9

不好意思原来我是写的OnPaint事件里的,后来写在FormCreate里了.
都可以的呵呵.