Ver Mensaje Individual
  #2  
Antiguo 20-10-2004
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
¿Y qué pasa si le dan al botón cancelar? (porque hay un botón cancelar ¿no?)
Supongo que entonces cerrarás el formulario principal terminando la aplicación. Pero entonces ¿para qué abriste el formulario principal?

La razón de estas preguntas es para comentarte que me parece más adecuado presentar primero que nada la ventana de usuario y contraseña, y sólo si los datos son validados presentar la ventana principal.

Para hacer esto basta que modifiques tu archivo dpr más o menos así:

Código Delphi [-]
begin
  Application.Initialize;

  VentanaLogin := TVentanaLogin.Create(nil);
  if VentanaLogin.ShowModal = mrOk then
  begin
    VentanaLogin.Free;

    Application.CreateForm(TVentanaPrincipal, VentanaPrincipal);
    Application.Run;
  end;
end.

Si el usuario cancela entonces Application.Run no se ejecuta y no se construye la ventana principal terminándose así la aplicación.

// Saludos

pd: ¿El borde? bsDialog
Responder Con Cita