Ventana de Login

[Durbed]

He visto que hay mucha gente en el foro que pregunta como se hace una ventana de login, incluido yo, y creo que es un tema interesante para dejarlo aquí a la vista de todos, y la verdad es que es bastante sencillo. El código que describo hay que ponerlo en el fuente del proyecto, es decir, en Proyecto.dpr, para verlo pinchamos en el menú sobre: Project -> View Source.

Pantalla de Login en las aplicaciones:

Código Delphi [-]
program PMainForm;

uses
  Forms,
  Controls,
  UMainForm in 'UMainForm.pas' {FMainForm},
  ULogin in 'ULogin.pas' {Flogin},
  UDModule in 'UDModule.pas' {DModule: TDataModule},
  
{$R *.res}

Var
  Respuesta: Integer;

begin
  Application.Initialize;
  //crear los Modulos de Datos, que han de ser los unicos que se creen
  Application.CreateForm(TDModule, DModule);
  FLogin := TFLogin.Create(Application);  
  
  try
    Respuesta := FLogin.ShowModal;
    if Respuesta = mrOK then
      begin
        Application.CreateForm(TFMainForm, FMainForm);
        Application.Run;
      end;
  finally
    FLogin.Free;
End;

end.

Luego, dentro del formulario de Login, deberemos darle valor al ModalResult, si es mrOk deberá continuar con la carga de la aplicación sino deberá salir.