Una de las soluciones es esta:
1) Pones en el FLogin la propiedad FormStyle=fsNormal.
2) Pones el FLogin como MainForm.
3) Editas el código del
proyecto:
Código Delphi
[-]program Project1;
uses
Forms,controls,
FPrincipal in 'FPrincipal.pas' ,
FLogin in 'FLogin.pas' ;
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TFLogin, FLogin);
FLogin.ShowModal;
if FLogin.ModalResult <> mrCancel then
begin
FLogin.Free;
Application.CreateForm(TFPrincipal, FPrincipal);
Application.Run;
end;
end.
entonces dependiendo de como cierres el formulario FLogin (mrCancel o mrOk) abrirás o no el principal.
No olvides agregar en
uses la unidad
controls.
Espero te sirva. Saludos.