Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   No veo la imagen de un splash screen (https://www.clubdelphi.com/foros/showthread.php?t=83532)

jzginez 27-06-2013 20:57:26

No veo la imagen de un splash screen
 
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

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


La franja horaria es GMT +2. Ahora son las 20:14:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi