Validar Una ContraseÑa Y Cerrar La Ventana De Inicio De Sesion

[vtdeleon]

Saludos

Vamos desde el principio.

FSesion ==> Form de acceso
FPrincipal ==> Form Principal

En el DPR poner esto:

Código Delphi [-]
Application.Initialize;
Fsesion:=tFsesion.create(nil);
with Fsesion do begin
 if ShowModal=mrok then begin
  Application.CreateForm(TFprincipal, Fprincipal);
  Application.Run;
 end else begin
  application.Terminate;
 end;//If
end;//With

En Fsesion solo pones tu codigo de validacion (comprobacion de usuairio y clave).

[TrUnkS]

OK con el código y los nombres de los Form, pero quisiera saber en que parte lo pongo, pues cuando abro el proyecto (archivo DPR) me habre mi primer FORM (Sesion.pas) y no sé si es lo mismo ponerlo ahí o en otra parte. Puse el código en una instrucción independiente del editor de código de Sesion.pas pero no resultó . Intento buscar el editor de código del DPR pero solo me manda a Sesion.pas siempre, es porque mi primer Form es el de inico de sesión, no se si sería bueno cambiarlo. Por el momento en el evento onclick del boton Aceptar de FSesion le puse FPrincipal.ShowModal; para ir a mi segundo Form (FPrincipal), pero no se cierra FSesion y menos se destruye. Agradecido y esperando en linea pues para mañana tengo que tenerlo hecho (sniff)

[vtdeleon]

Saludos

Para acceder al DPR en Delphi ve al menu Project==> View Source y el codigo que te muestra es del DPR. Alli veras el codigo de Application.Initialization y de ahi te puedes guiar.
Detente un poco y trata de entenderlo
Hasta Luego

[TrUnkS]

Hola. La linea Application.CreateForm(TFprincipal, Fprincipal); ya existia en el editor de codigo del DPR asi que no la puse, la complementé con el codigo que estamos analizando, es decir, debajo de ella puse Application.Run; y elimine la linea Application.CreateForm(TFSesion, FSesion); que ya tenia, y la reeemplaze por FSesion:=TFsesion.Create(nil);.
Supongo que el codigo tiene el siguiente error:
if ShowModal=mrok ---->debe ir --->FSesion.ShowModal=mrok si no me equivoco, pero aun asi no me funciona pues no reconoce mrok. Revisalo bien pues yo ya lo he analizado y no me cabe la menor duda del error. Agradecido de antemano por tu pronta respuesta.

PD: El problema principal de esto es eliminar y destruir el primer Form llamado FSesion cuando apreto ACEPTAR en él, para que me dirija al segundo FORM llamado FPrincipal

[vtdeleon]

Saludos

Seguro qeu te sale qeu esta undeclare "mrok", pues dale a F1 teniendo el cursor sobre la palabra para que te salga la ayuda y en esta sale la unidad qeu contiene declarada esta constante.

Agrega en la parte Use (arriba) en el DPR la unidad Controls

[TrUnkS]

Lo hice. Agregue la unidad que lo contiene debajo de USE y me funciona con este codigo:

Application.Initialize;
FSesion:=TFsesion.Create(nil);
with FSesion do begin if FSesion.ShowModal=mrok then begin Application.Terminate;
end else begin
Application.Run;
end; //if
end; //with
Application.CreateForm(TFprincipal, Fprincipal);

y de ahi vienen todas las demás FORM. De todas formas este código es diferente. Con el código en que habiamos quedado no me funcionaba pero no entiendo porqué. ¿Es necesario poner en FSesion caFree para que libere la memoria? o ya es suficiente con esto?. Gracias por la ayuda