Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   gauge (https://www.clubdelphi.com/foros/showthread.php?t=43787)

machingol 20-05-2007 17:23:09

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?

eduarcol 20-05-2007 17:31:00

Application.ProceesMessages

Suerte

machingol 20-05-2007 17:40:07

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

Wellnic 20-05-2007 17:42:21

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

machingol 20-05-2007 17:46:10

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

machingol 20-05-2007 18:20:49

ya esta ya lo he conseguido gracias


La franja horaria es GMT +2. Ahora son las 20:34:39.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi