Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Actualizar esta página splash screen con progressbar delphi
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-05-2011
Avatar de granodetoro
granodetoro granodetoro is offline
Miembro
NULL
  
Registrado: mar 2011
Posts: 71
Poder: 15
granodetoro Va por buen camino
Post splash screen con progressbar delphi
hola a todos.bueno encontre dos hilos con este mismo tema y resulta que no entendi como hacerlo..si alguien me puede explicarlo.favor ayudarme
Responder Con Cita
  #2  
Antiguo 14-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 37
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola granodetoro.

Te pongo un ejemplo con los pasos para crear un SplashScreen.

Create un Form que desde ahora lo llamo 'Logo' y ajusta las propiedades:
.BorderStyle = bsNone
.Position = poScreenCenter
.Visible = True (Importantisimo para que se visualice)

Quita el form Logo de Auto-create forms (Project->Options->Forms)

Poné lo que gustes como presentación.

Abrí el proyecto: View->Units->Project1.dpr (o como se llame tu proyecto) y agregá lo que está en negrita:
Código Delphi [-]
program Project1;
uses
  Forms,
  Windows, // Para poder usar Sleep
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Logo};
{$R *.res}
begin
  Application.Initialize;
  Logo:= TLogo.Create(nil); 
  Logo.Update;
  Sleep(3000);  // en este caso se muestra 3 segs
  Application.CreateForm(TForm1, Form1);
  Logo.Free;
  Application.Run;
end.

Un saludo.

Edito: Hola granodetoro, mis disculpas. Ya estoy escribiendo 300 veces "debo leer bién los títulos de los mensajes"...
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Última edición por ecfisa fecha: 14-05-2011 a las 20:45:38.
Responder Con Cita
  #3  
Antiguo 14-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 37
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola granodetoro.

Como te dije antes disculpas por no leer bién el título de tu mensaje, te pongo un ejemplo del uso del ProgressBar en el splash.

Al formulario 'Logo' del mensaje anterior agregale un TProgressBar.
Código Delphi [-]
program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Logo},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

const
  Delay= 500;  // tiempo de demora para que se pueda visualizar
  MaxForms = 3; // número de forms que se abren

{$R *.res}
begin
  Application.Initialize;
  Logo:= TLogo.Create(nil);
  Logo.ProgressBar1.Max:= MaxForms;  // número de forms
  Logo.Update;
  Logo.ProgressBar1.StepIt; Sleep(Delay); // avanza ProgressBar y tiempo de espera para visualizar
  Application.CreateForm(TForm1, Form1); // crea un form
  Logo.ProgressBar1.StepIt; Sleep(Delay); // avanza ...
  Application.CreateForm(TForm3, Form3); // crea otro form
  Logo.ProgressBar1.StepIt; Sleep(Delay); // ...
  Application.CreateForm(TForm4, Form4);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Logo.Free;
  Application.Run;
end.
El tiempo de espera es sólo a fin de que visualices el avance en el ejemplo. Lo podés cambiar o eliminar, lo normal es que el tiempo de demora esté dado por alguna actividad de la aplicación. (como la carga de algún recurso por ejemplo)


Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Última edición por ecfisa fecha: 14-05-2011 a las 21:10:14.
Responder Con Cita
  #4  
Antiguo 14-05-2011
Avatar de granodetoro
granodetoro granodetoro is offline
Miembro
NULL
  
Registrado: mar 2011
Posts: 71
Poder: 15
granodetoro Va por buen camino
Thumbs up
graciasssssss
Responder Con Cita
  #5  
Antiguo 14-05-2011
Avatar de radenf
radenf radenf is offline
Miembro
  
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 18
radenf Va por buen camino
Excelente tu aporte ecfisa .
Seguramente será de gran utilidad para muchos, yo entre otros.
Muchas gracias
Saludos
Responder Con Cita
  #6  
Antiguo 15-05-2011
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
  
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.905
Poder: 22
newtron Va camino a la fama
Por cierto.... qué es un splash screen?
Responder Con Cita
  #7  
Antiguo 15-05-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
  
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.405
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por newtron Ver Mensaje
Por cierto.... qué es un splash screen?
La ventanita que sacas al principio del programa mientras carga.

Responder Con Cita
  #8  
Antiguo 15-05-2011
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
  
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.905
Poder: 22
newtron Va camino a la fama
Juer... pues tiene que ser un programa gordo para necesitar uno de esos, ¿no?
Responder Con Cita
  #9  
Antiguo 15-05-2011
Avatar de granodetoro
granodetoro granodetoro is offline
Miembro
NULL
  
Registrado: mar 2011
Posts: 71
Poder: 15
granodetoro Va por buen camino
Question
hice el primer ejemplo y sirvio pero el segundo da error e hice todo lo que pusiste al pie de la letra

mira mi codificacion
Código Delphi [-]
program Project1;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {logo},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

Delay = 500;
  MaxForms = 3;

{$R *.res}

begin
  Application.Initialize;
   Logo:= TLogo.Create(nil);
  Logo.ProgressBar1.Max:= MaxForms;
  Logo.Update;
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm1, Form1);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm3, Form3);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm4, Form4);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Logo.Free;
  Application.Run;



end.
errrores

[Error] Project1.dpr(11): Declaration expected but identifier 'Delay' found
[Error] Project1.dpr(19): Undeclared identifier: 'MaxForms'
[Error] Project1.dpr(21): Undeclared identifier: 'Delay'
Última edición por ecfisa fecha: 15-05-2011 a las 21:56:58. Razón: Etiquetas [DELPHI] [/DELPHI]
Responder Con Cita
  #10  
Antiguo 15-05-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 37
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por granodetoro Ver Mensaje
hice el primer ejemplo y sirvio pero el segundo da error e hice todo lo que pusiste al pie de la letra

mira mi codificacion
Código Delphi [-]
program Project1;

uses
  Forms,
  windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {logo},
  Unit3 in 'Unit3.pas' {Form3},
  Unit4 in 'Unit4.pas' {Form4};

CONST
  Delay = 500;
  MaxForms = 3;

{$R *.res}

begin
  Application.Initialize;
   Logo:= TLogo.Create(nil);
  Logo.ProgressBar1.Max:= MaxForms;
  Logo.Update;
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm1, Form1);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm3, Form3);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Application.CreateForm(TForm4, Form4);
  Logo.ProgressBar1.StepIt; Sleep(Delay);
  Logo.Free;
  Application.Run;



end.
errrores

[Error] Project1.dpr(11): Declaration expected but identifier 'Delay' found
[Error] Project1.dpr(19): Undeclared identifier: 'MaxForms'
[Error] Project1.dpr(21): Undeclared identifier: 'Delay'
Hola granodetoro.

Casi... pero no fué totalmente al pié de la letra. Fijate la línea que está en mayúsculas y subrrayada.

Un saludo.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Última edición por ecfisa fecha: 15-05-2011 a las 22:03:06.
Responder Con Cita
  #11  
Antiguo 15-05-2011
Avatar de granodetoro
granodetoro granodetoro is offline
Miembro
NULL
  
Registrado: mar 2011
Posts: 71
Poder: 15
granodetoro Va por buen camino
no me fije del const....gracias
Responder Con Cita
Respuesta

« Tema Anterior | Próximo Tema »


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
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
poner splash screen con progress bar en delphi Crashthebig Varios 5 05-02-2007 21:05:17
Problemas en splash screen ilichhernandez Varios 2 19-12-2005 06:45:17


La franja horaria es GMT +2. Ahora son las 22:10:47.

Club Delphi - Archivo - Top

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