[Lazarus-es] mostrar form después de cargado el form principal

[Maxi]

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;



-- 
Twitter: @nenunocomar
Maximiliano Duarte
Linux User #495070
Ubuntu User #28504

El que pregunta aprende, y el que contesta aprende a responder.