diff --git a/Source/Cliente/uPantallaPrincipal.pas b/Source/Cliente/uPantallaPrincipal.pas
index dd9947f9..73f7ebea 100644
--- a/Source/Cliente/uPantallaPrincipal.pas
+++ b/Source/Cliente/uPantallaPrincipal.pas
@@ -126,6 +126,7 @@ type
     //procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
   protected
     function GetWorkPanel : TWinControl;
+    procedure CreateParams(var Params: TCreateParams); override;    
   public
     function IsShortcut(var Message: TWMKey): Boolean; override;
     procedure OnWorkPanelChanged(AEditor : ICustomEditor);
@@ -482,6 +483,14 @@ begin
   end;
 end;
 
+procedure TfPantallaPrincipal.CreateParams(var Params: TCreateParams);
+begin
+  { ¡¡¡No quitar este procedimiento aunque no haga nada!!!!!
+    Si se quita, esta pantalla principal se queda en el fondo
+    después de desaparecer la pantalla de login. }
+  inherited CreateParams(Params);
+end;
+
 procedure TfPantallaPrincipal.actActualizacionesExecute(Sender: TObject);
 begin
 {  fActualizacion := TfActualizacion.Create(Self);