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
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