Problemas Con Progress Bar

[UTECYBER]

Hola Muchachos espero que esten todos bien.

Tengo Elaborado un Splash Screen, Hasta Ahi estoy bien, Pero quiero que el FrmSplash, utilice una barra de progreso, a segun mi sistema se vaya cargando.

Como puedo Hacerlo?

Atte, Utecyber

Delphi es lo Maximo!***

[roman]

Todo depende de qué signifique "cargar sistema"

Por ejemplo, si tienes varios componentes TTab puedes ajustar ProgressBar.Max al número de tablas, ProgressBar.Step a 1 y usar ProgressBar.StepIt después de abrir cad tabla:

ProgressBar.Max := 3;
ProgressBar.Step := 1;
ProgressBar.Position := 0

Table1.Open;
ProgressBar.StepIt;

Table2.Open;
ProgressBar.StepIt;

Table3.Open;
ProgressBar.StepIt;

El hecho es que las componentes ProgressBar sirven cuando se tiene una noción del número de eventos y puedes determinar cuándo sucede cada uno de ellos.

Esto no siempre es así. Por ejemplo, si ejecutas una consulta SQL, al menos con Paradox, no hay manera de ver cuándo cada registro del resultado llega a la aplicación por lo que no sirve un ProgressBar y lo mejor que se puede hacer es usar un "splash screen" para indicar al usuario que debe esperar.

// Saludos

[UTECYBER]

Ok Roman te compredi perfectamente.

Ahora bien, este codigo va simplemente dentro de un
Begin y un

End;

si puedes explicarmelo mas detalladamente. Por que a la verdad estoy empezando ahora a utilizar este componente.

atte.
Utecyber.

[__cadetill]

bueno, básicamente, lo más importante de este componente es lo siguiente

Propiedades
- Max : número máximo o partes en que se "dibidirá" la barra de progreso (notese el entrecomillado)
- Step: cuantas posiciones abanzará en cada paso (hasta un máximo de Max)
Position : posición actual entre 0 y Max (es la que indica realmente el aspecto de la barra de progreso)

Métodos
- StepIt : incrementa Step posiciones la propiedad Position

Por lo tanto, si tenemos, por ejemplo, 10 acciones a realizar, podemos definir Max = 10, Position = 0 y Step = 1 y, llamar al mñetodo StepIt despues de cada una de las acciones

Accion 1;
ProgressBar1.StepIt;

Accion 2;
ProgressBar1.StepIt;

Accion 3;
ProgressBar1.StepIt;
......

Espero te sirva (aunque no sea Román )

[UTECYBER]

Gracias Cadetil, Me sirvio perfectamente.

Atte.
Utecyber.