Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-06-2013
Avatar de jzginez
jzginez jzginez is offline
Miembro
 
Registrado: sep 2003
Ubicación: Puebla, México
Posts: 247
Poder: 21
jzginez Va por buen camino
Question 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
__________________
Espero poder seguir exprimiéndote el cerebro 8)
Jorge Zamora Ginez
Puebla, Pue. México
Responder Con Cita
  #2  
Antiguo 27-06-2013
Avatar de Caminante
Caminante Caminante is offline
Miembro
 
Registrado: oct 2010
Ubicación: Lima - Peru
Posts: 338
Poder: 14
Caminante Va camino a la fama
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
Responder Con Cita
  #3  
Antiguo 27-06-2013
Avatar de jzginez
jzginez jzginez is offline
Miembro
 
Registrado: sep 2003
Ubicación: Puebla, México
Posts: 247
Poder: 21
jzginez Va por buen camino
Perfecto muchas gracias
__________________
Espero poder seguir exprimiéndote el cerebro 8)
Jorge Zamora Ginez
Puebla, Pue. México
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
no entiendo porque parpadea imagen en splash screen gaston260 Gráficos 1 16-03-2011 15:16:31
splash screen hernan35 Varios 3 16-03-2010 02:21:20
Screen Splash lKinGl Varios 4 03-04-2008 13:30:45
Splash Screen jmedina Varios 6 15-08-2007 07:15:46
Splash Screen con imagen ibstk Varios 2 09-09-2004 01:05:51


La franja horaria es GMT +2. Ahora son las 01:38:12.


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
Copyright 1996-2007 Club Delphi