Foros Club Delphi - Cambio del Main Form en ejecución

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Cambio del Main Form en ejecución (https://www.clubdelphi.com/foros/showthread.php?t=6398)

Cambio del Main Form en ejecución

Hola amigos, sucede que tengo un form que sirve de acceso a
para el usuario, si cumple con el login y el pass se activa el form que contiene el menu.

como hacer para que el form de menu quede como main, o la solucion es ocultar el form de acceso??

Lo puedes solucionar poniendo un código similar a éste en el DPR:

Código:



{$R *.RES}

Var

Respuesta:Integer; //Para recoger el valor de la clave

begin

  Application.Initialize;



  frsplash:=Tfrsplash.create(nil);

  frsplash.update;



  Application.Title := 'XXXXXX’;

  Application.CreateForm(TDmoxxx, Dmoxxx);

  Application.CreateForm(TfrMenu, frMenu);

  frsplash.free;

  //Petición de Clave

  frLogin := TfrLogin.Create(Application);

  try



     try

        Respuesta :=frLogin.ShowModal; //Toma el valor de ModalResult de Login



     finally

        FreeAndNil(frLogin);//No funciona con D3

     end;



  except

       ShowMessage('error creando formulario.');

  end;

  //Fin Petición de Clave



    if Respuesta = xx  then

    Application.Run

    else

    Application.Terminate ;

end.

Un Saludo.