Más sobre las SplashScreen

[salvica]

Hola de nuevo a tod@s

Estoy intentando aplicar lo que explicais por estos foros a una SplashScreen que me he creado, pero me encuentro con el problema de que si se pulsa sobre ella, actúa como el MainForm y me salta el error de raised exception .. bla, bla, bla ... Cannot focus a disables or invisible window (Form_Main)'

Lo he solucionado poniendo la propiedad "Enabled := false;", pero no se si lo estoy haciendo bien ¿hay alguna otra forma de hacerlo?

Código Delphi [-]
      Application.Initialize;
      SplashForm := TSplashForm.Create(Application);
      SplashForm.Show;
      SplashForm.Update;
      Application.CreateForm(TForm_Main, Form_Main);
      Application.CreateForm(TForm_Msg, Form_Msg);
      SplashForm.Free;
      Application.Run;

Tambien he optado por quitar de ahi la eliminación del Splash y ponerlo en el método Show del Form_Main (para eliminarla cuando se visualice éste)

Código Delphi [-]
Application.Initialize;
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.CreateForm(TForm_Main, Form_Main);
Application.CreateForm(TForm_Msg, Form_Msg);
Application.Run;
 
 
 unit frmMain;
 interface
 uses
 { uses mios que deben ponerse aqui }
   frmSplash, { SplashForm }
 .....
 .....
 
 procedure TForm_Main.Form_OnShow(Sender: TObject);
 begin
 .....
 { eliminar el SpashScreen }
   SplashForm.Hide;
   SplashForm.Free;
 end;

Saludos
salvica