关于两个form同时显示

Question

经常看到打开一个应用程序时，主界面显示后，还显示一个登录框，而且是莫modal窗口，如何实现
程序运行时同时显示两个窗口。如何实现上面说的登录窗口。

Answer 1

在form1的
procedure TForm1.FormActivate(Sender: TObject);
var
  f: TForm2;
begin
  f:= TForm2.Create(nil);
  f.ShowModal;
end;

Answer 2

是在form1的OnActivate事件里添加。不要在OnShow添加。

Answer 3

给你一几行代码看看就知道了.  Splasher:=TSplasher.Create(Application);//飞溅屏
  Splasher.Show;
  Splasher.Update;
  Application.Initialize;
  Splasher.lblStatupInfo.Caption:='正在连接服务器,请稍后……';
  Splasher.Update;
  Application.Title := 'Richsoft MRP';
  Application.CreateForm(TLogin, Login);//登陆窗体
  Splasher.Update;

Answer 4

对不起少了这两行
Splasher.Free;
Application.Run;

Answer 5

用一楼的方法：在主窗口的FormActivate写：
Application(TForm1, Form1);
Form1.ShowModal;

Answer 6

procedure TfrmMain.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  frmLogin := TfrmLogin.Create(Self);
  frmLogin.ShowModal;
  FreeAndNil(frmLogin);
end;