Hola ASUNCION.
Una manera de hacerlo es dejar el formulario de acceso con su propiedad
FormStyle en
fsNormal y en el código del proyecto evaluar su resultado de salida:
Código Delphi
[-]
program Project1;
uses
Forms,
Controls,
....
begin
Application.Initialize;
Application.CreateForm(TMDIForm, MDIForm);
Application.ShowMainForm := False;
Application.CreateForm(TFormAcceso, FormAcceso);
if FormAcceso.ShowModal = mrOk then
begin
Application.ShowMainForm := True;
Application.Run;
end;
end.
Saludos.
