splash screen con progressbar delphi

[granodetoro]

graciasssssss

[radenf]

Excelente tu aporte ecfisa .
Seguramente será de gran utilidad para muchos, yo entre otros.
Muchas gracias
Saludos

[[newtron]]

Por cierto.... qué es un splash screen?

[Casimiro Noteví]

Originally Posted by newtron

Por cierto.... qué es un splash screen?

La ventanita que sacas al principio del programa mientras carga.

[[newtron]]

Juer... pues tiene que ser un programa gordo para necesitar uno de esos, ¿no?

[granodetoro]

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'

[ecfisa]

Originally Posted by granodetoro

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.