gauge

[machingol]

---------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 100 do begin
form1.Gauge1.AddProgress(-1);sleep(1000);
end;
end;
---------------------------------------------------------------

hola esta es mi ultima pregunta lo mas probable,ya que no necesito nada mas para este project.Lo que intento hacer es que cuando se le de al boton 1,la barra baje 1 a 1.Pero me gustaria que cuando esto este pasando que se puedan hacer otras cosas,como tocar botones y eso.como se hace?

[[eduarcol]]

Application.ProceesMessages

Suerte

[machingol]

ya habia oido hablar de eso,pero no tengo ni idea de como utilizarlo

[Wellnic]

Empezado por machingol

---------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
for n:=1 to 100 do begin
form1.Gauge1.AddProgress(-1);sleep(1000);
end;
end;
---------------------------------------------------------------

hola esta es mi ultima pregunta lo mas probable,ya que no necesito nada mas para este project.Lo que intento hacer es que cuando se le de al boton 1,la barra baje 1 a 1.Pero me gustaria que cuando esto este pasando que se puedan hacer otras cosas,como tocar botones y eso.como se hace?

Eso se hace habitualmente con un control Timer, de la paleta Additional, en cuyo evento es donde debes colocar ese código (excepto el Sleep).

[machingol]

lo he probado,pero esq hasta que no acaba la accion no me deja hacer nada mas

[machingol]

ya esta ya lo he conseguido gracias