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' ,
ULogin in 'ULogin.pas' ,
UDModule in 'UDModule.pas' ,
{$R *.res}
Var
Respuesta: Integer;
begin
Application.Initialize;
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.