如何控制启动窗体与主窗体关系？

Question

把登陆窗体的显示放到DPR文件中去

Answer 1

不要在主窗口中写，最好在工程文件中写：
例子如下：
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Form2 := TForm2.Create( Nil );
  Try
     Form2.ShowModal;
     If Form2.ModalResult = mrOK Then
     Begin
          Form2.Free;
          Application.CreateForm(TForm1, Form1);
          Application.CreateForm(TForm2, Form2);
          Application.Run;
     End
     Else
     Begin
          Form2.Free;
          Application.Terminate;
     End;
end.在Form2中处理用户的登录，如果正确ModalResult返回mrOK！

Answer 2

上面的代码有错误，应该这样：
不要在主窗口中写，最好在工程文件中写：
例子如下：
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Form2 := TForm2.Create( Nil );
  Try
     Form2.ShowModal;
     If Form2.ModalResult = mrOK Then
     Begin
          Form2.Free;
          Application.CreateForm(TForm1, Form1);
          Application.Run;
     End
     Else
     Begin
          Form2.Free;
          Application.Terminate;
     End;
end.在Form2中处理用户的登录，如果正确ModalResult返回mrOK！

Answer 3

还是写错了！
上面的代码有错误，应该这样：
不要在主窗口中写，最好在工程文件中写：
例子如下：
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Form2 := TForm2.Create( Nil );
  Form2.ShowModal;
  If Form2.ModalResult = mrOK Then
  Begin
       Form2.Free;
       Application.CreateForm(TForm1, Form1);
       Application.Run;
  End
  Else
  Begin
       Form2.Free;
       Application.Terminate;
  End;
end.在Form2中处理用户的登录，如果正确ModalResult返回mrOK！

Answer 4

你把主窗体设为启动窗体，在主窗体的OnCreate事件中调用登录确认窗体，同时隐藏主窗体，登录确认窗体输入正确后再显示主窗体。

Answer 5

在program Project1中
Application.CreateForm(TmainForm, mainForm);
application.createform(tlogoform,logoform);
          

Answer 6

你把主窗体设为启动窗体，在主窗体的OnCreate事件中调用登录确认窗体，同时隐藏主窗体，登录确认窗体输入正确后再显示主窗体。

Answer 7

又写错了！应该这样！！！！
还是写错了！
上面的代码有错误，应该这样：
不要在主窗口中写，最好在工程文件中写：
例子如下：
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Form2 := TForm2.Create( Nil );
  Form2.ShowModal;
  If Form2.ModalResult = mrOK Then
  Begin
       Form2.Free;
       Application.CreateForm(TForm1, Form1);
       Application.Run;
  End
  Else
  Begin
       Form2.Free;
       Application.Terminate;
  End;
end.在Form2中处理用户的登录，如果正确ModalResult返回mrOK！

Answer 8

编译通不过呀，在  If Form2.ModalResult = mrOK Then 的mrok 上

Answer 9

uses语句中加上Windows, Controls