PDA

Ver la Versión Completa : No veo la imagen de un splash screen


jzginez
27-06-2013, 20:57:26
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:
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

Caminante
27-06-2013, 21:06:06
Bueno yo despues de crear la ventana y mostrarla con show le aplico el metodo update y nunca he tenido problemas puedes probar con eso.
Espero q te sea util saludos

jzginez
27-06-2013, 21:49:35
Perfecto muchas gracias