Cita:
|
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).