splash screen

[Softweb]

Hola

Yo lo hago a sin:

Código Delphi [-]
  Application.Initialize;
  SwShowLogo( 0, C_TITULOAPP, C_DESCRIAPP, PAnsiChar('Versión '+FloatToStr(C_VERSION)) );
  Application.Title := 'APP';
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TMain, Main);
  SwCerrarShow;
  Application.Run;

Código Delphi [-]
procedure SwShowLogo( Size: integer; Titulo, Detalle, Version: PChar ); stdcall;
begin
  Screen.Cursor := -11;
  DlgLogo := TDlgLogo.Create(Application);
  DlgLogo.Boton.Visible := False;
  DlgLogo.Tag := 0;
  if Titulo <> '' then DlgLogo.LTitulo.Caption := Titulo;
  if Detalle <> '' then DlgLogo.LDetalle.Caption := Detalle;
  if Version <> '' then DlgLogo.LVersion.Caption := Version;
  if Size <> 0 then DlgLogo.LTitulo.Font.Size := Size;
  DlgLogo.Show;
  DlgLogo.Update;
  Screen.Cursor := 0;
end;

procedure SwCerrarShow; stdcall;
begin
  DlgLogo.Close;
  DlgLogo.Free;
end;

Espero que te sirva, si no es asín dímelo.

Saludos

[BrunoBsso]

Se me ocurre.. probá así

Código Delphi [-]
  FLogo:=TFLogo.Create(Application);
  FLogo.Show;
  FLogo.Update;
  Application.Initialize:
  Application.Create(TForm1,Form1);
  application.Create(TFLogo,FLogo);
  Sleep(3000);
  FLogo.Close;
  FLogo.Free;
  Application.Run;

Sino sirve, tambíen podés probar

Código Delphi [-]
//En la paleta de propiedades
//Poner la propiedad AlphaBlend en TRUE del form principal
//Poner la propiedad AlphaBlendValue = 0 del form principal
//En el OnCreate del form principal
begin
  FLogo.ShowModal;
  //Cuando FLogo termina de mostrarse, cerralo desde sí mismo
  FLogo.Free;
  Form1.AlphaBlendValue:=255;
  Form1.AlphaBlend:=False;
end;

Para eso, tendrías que dejar el source del proyecto intacto y no recurrir al código que hiciste.
Si no se entiende, lo explico de nuevo de otra forma.
Saludos!

[hernan35]

Me dieron una solución realmente rápido, les agradezco a todos su valiosa colaboración, y quedo perfecto.
Saludos.