Hola a todos..

�C�mo podr�a hacer para que cuando se ejecute el programa se muestre primero el form principal y a continuaci�n el form de login?. Si no se valida el ususario, cerrar la aplicaci�n, y de lo contrario, cerrar el form de login y continuar.

En el .lpr he hecho esto:

  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TDBMain, DBMain);
  Application.CreateForm(TfrmLogin, frmLogin);
  frmlogin.ShowModal;
  if frmlogin.valido Then
     Begin
         FreeAndNIL(frmlogin);
         Application.Run;
     end
     else
       Application.Terminate;

pero no tiene el efecto que yo quiero: s�lo se muestra el formulario de login y luego de validar, arranca el sistema mostrando el form principal. Prob� definiendo que el frmlogin sea de splash, pero creo que no es para eso..

Alguna idea??
Saludos a todos!!

Desde mi punto de vista, tendrias que abrir el form login desde el formulario principal y alli validar si es ok o no.

FG

No se nada de Lazarus y mucho menos aun de Delphi, pero creo que con un Application.CreateForm para cada formulario basta.

Por supuesto despu�s debes realizar un .Show de cada uno de ellos.

Saludos
=========
|| ISMAEL ||
=========

Podes hacerlo en el formshow, hay otro metodo desde el proyecto evitando cargar modulos antes de login pero este es facil de mantener.

procedure TForm1.FormShow(Sender: TObject);
begin
  with TPasswordDlg.Create(nil) do
  try
    if ShowModal = idyes then
    begin
      //aca haces tu valicacion contra una base de datoso lo que gustes.
      //si usas modulos de datos deben estar cargados previamente para
poder tener acceso a los datos
      DmAmbPsi.qUsuarios.ParamByName('usuario').Value:=
UpperCase(edUsuario .Text);
      DmAmbPsi.qUsuarios.ParamByName('clave'  ).Value:=
UpperCase(edPassword.Text);
      DmAmbPsi.qUsuarios.open;
      if DmAmbPsi.qUsuarios.IsEmpty then
      Begin
        Application.MessageBox('El usuario o la clave no corresponden,
igrese nuevamente','Error de usuario',mb_ok+mb_iconhand);
        Application.Terminate;
      end
    end
    else
      Application.Terminate;
  finally
    free;
  end;
end;

El 8 de junio de 2010 14:31, Ismael L. Donis Garc�a <ismael en citricos.co.cu>escribi�:

Personalmente, lo manejo en una aplicaci�n aparte, paso por par�metros (encriptando los datos) los valores que deseo, esto lo hago porque tengo varios modulos.

Saludos a todos!!