FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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?? |
#2
|
||||
|
||||
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.
__________________
Guía de Estilo de los Foros Cita:
|
|
|
|