[jzginez]

Hola amigos tengo rato alejado de la programación y del foro, ahora tengo la necesidad de hacer un pequeño sistema y al crear el splash screeen con progressbar y label este no me muestra la imagen que estoy poniendo de fondo el progressbar y el label si estan cambiando como debe de ser.

la imagen que muestro es:
logo.jpg
550 X 367

El codigo del proyecto es:

Código Delphi [-]
program Seguros;

uses
  Forms, Windows, Dialogs,
  UniFrmSeguros in 'UniFrmSeguros.pas' {FrmSeguros},
  UniDtmDatos in 'UniDtmDatos.pas' {DtmDatos: TDataModule},
  UniFrmPromotores in 'UniFrmPromotores.pas' {FrmPromotores},
  UniFrmPolizas in 'UniFrmPolizas.pas' {FrmPolizas},
  UniFrmConfiguracion in 'UniFrmConfiguracion.pas' {FrmConfiguracion},
  UniFrmCarga in 'UniFrmCarga.pas' {FrmCarga};

{$R *.res}

begin
  Application.Initialize;
  FrmCarga:= TFrmCarga.Create(Nil);
  FrmCarga.Visible:= True;
  FrmCarga.Label2.Caption:= 'Cargando sistema';
  Sleep(3000);
//  ShowMessage('Cargando sistema');
  Application.CreateForm(TFrmSeguros, FrmSeguros);
  FrmCarga.ProgressBar1.Position:= FrmCarga.ProgressBar1.Position + 1;
  Application.CreateForm(TDtmDatos, DtmDatos);
  FrmCarga.ProgressBar1.Position:= FrmCarga.ProgressBar1.Position + 1;
  Application.CreateForm(TFrmPromotores, FrmPromotores);
  FrmCarga.ProgressBar1.Position:= FrmCarga.ProgressBar1.Position + 1;
  Application.CreateForm(TFrmPolizas, FrmPolizas);
  FrmCarga.ProgressBar1.Position:= FrmCarga.ProgressBar1.Position + 1;
  Application.CreateForm(TFrmConfiguracion, FrmConfiguracion);
  FrmCarga.ProgressBar1.Position:= FrmCarga.ProgressBar1.Position + 1;
  Application.ShowMainForm:= False;
  FrmCarga.ProgressBar1.Position:= 100;
  FrmCarga.Free;
  Application.Run;
end.

La linea comentada:
Si quito el Sleep(3000) y la sustituyo por el ShowMessage entonces si veo la imagen pero como veran es muy incomodo esperar a que el usuario de click en el mensaje para continuar con la carga

Alguien tiene una idea de que puedo hacer para que se vea la imagen?


Gracias