Delphi - Una tarea para Juan

Hola men necesito tu ayuda si puedes ... tengo un proyecto y quiero ponerle un progressbar un ejemplo tengo un login que despues q digite el nombre y la contraseña se carge la progressbar y luego entre al segundo form q en este caso es el menu si puedes ayduame ... y gracias de antemano

Hola men necesito tu ayuda si puedes ... tengo un proyecto y quiero ponerle un progressbar un ejemplo tengo un login que despues q digite el nombre y la contraseña se carge la progressbar y luego entre al segundo form q en este caso es el menu si puedes ayduame ... y gracias de antemano

Supongo que era a mi (Es Juzam, no Juan :-)

Si lo que quieres hacer es cargar un progressbar completamente y que luego, una vez detenido, pase otra cosa, se puede hacer tal que así:

1- Pones un Timer en en form donde tienes el ProgressBar. Pon la propiedad Interval a 300, por ejemplo.
2- Cuando se pulse el botón para validar usuario y contraseña, activas el Timer. En el OnTimer de dicho Timer pones algo parecido a esto:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position>=ProgressBar1.Max then begin
Timer1.Enabled:=false;
{Aquí lanzas el resto de la aplicación}
end;
end;

Donde {Aquí lanzas el resto de la aplicación} lanzas el siguiente Form o lo que sea.
Espero que sea eso lo que pedías. Un saludo.

no me salio porque la barra se cargo antes de que digitara el nombre y la contraseña

Estoy usando datamodulo tiene esto algo que ver ?

Y gracias por la ayuda

No creo que tenga nada que ver con el datamodulo.
Lo que tienes que tener es el Enabled del Timer a False hasta que se pulse el botón para verificar usuario y contraseña, donde lo tienes que poner a True para que se cargue el progressbar.

Saludos.

sigue lo mismo te presento lo que estoy haciendo ...

begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position<=ProgressBar1.Max then begin
Timer1.Enabled:=true;

if not Datamodule4.Usuario.Locate('contraseña;Nombre',vararrayof([edit2.Text,edit1.Text]),[]) then
begin
showmessage('Usuario Invalido !!! ');
edit1.Clear; edit2.Clear;
edit1.SetFocus;
end
else
begin
frmmenu.showmodal;

Gracias por todo y dime que debo de corregirpor favor para que salga bien es que estoy haciendo un proyecto para una nota final

Tendrías que hacerlo de esta manera (recuerda que el timer debe estar inicialmente con el enabled a false):

1- El usuario pulsa en el botón para validar su nombre de usuario y contraseña. Este botón lo que hace es poner el timer en enabled:=true.

2- En el OnTimer pone el código para que se rellene el progress:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position>=ProgressBar1.Max then begin
Timer1.Enabled:=false;
{Yo pondría aquí tambien ProgressBar1.Position:=0, para que baje por si el usuario se equivocó que se pueda repetir el efecto}
{Aquí lanzas el resto de la aplicación}
end;
end;

3- Donde están los corchetes "{Aquí lanzas el resto de la aplicación}" llamas a otro procedimiento que es quien te verificará el usuario y contraseña (tu código):

if not Datamodule4.Usuario.Locate('contraseña;Nombre',vararrayof([edit2.Text,edit1.Text]),[]) then
begin
showmessage('Usuario Invalido !!! ');
edit1.Clear; edit2.Clear;
edit1.SetFocus;
end
else
begin
frmmenu.showmodal;

Saludos.

Te paso una aplicacion , pero tienes que afinarlo tu , arranca con un boton . Un saludo de Juan

• Barra_progresion_1.rar(90,3 KB)