|
gauge
---------------------------------------------------------------
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?
|