急，急，急，有关FORM调用

Question

你在工程文件中这样写:
program Project1;uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2);
  form2.showmodal;
  form2.hide;
  form2.free;
  Application.CreateForm(TForm1, Form1);  Application.Run;
end.
http://ssudi.go.163.com

Answer 1

我是这样想的,我们是不是可以在Onenter事件中使formb显示并且使FormA不可用Enabled:=false; 这样不就解决了吗?是不是我的方法还行,我做了好多的东西都是
这样做的！

Answer 2

如果是登陆窗口的话，可以这样
if form2.showmodal = mrOK then
begin
  form2.hide;
  form2.free;
  Application.CreateForm(TForm1, Form1)
else
  Application.Terminate;
一点小建议。  
  

Answer 3

program Project1;uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.RES}begin
  Form2:=TForm2.Create(Application);
  if Form2.ShowModal<>mrok then Application.Terminate;  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form2.Free;
  Application.Run;
end.

Answer 4

forma 的 show 事件中写formb.showmadel不行吗？

Answer 5

  Application.Initialize;
  Application.Title := '－－';
  Form_Login:=TForm_Login.Create(Application);
  with Form_Login do
  begin
    ShowModal;
    if not AllowEnter then
    begin
    Application.Terminate;
      Exit;
    end;
  end;
  Form_Flash:=TForm_Flash.Create(Application);
  Form_Flash.show;
  Form_Flash.Update;
  Application.CreateForm(TForm_Main, Form_Main);
  －－－