[Neftali [Germán.Estévez]]

Empezado por gio013

constructor TProgressBarThread.Create(Box: TProgressBar; AStep:Integer; ThreadPriority: TThreadPriority);

lo que veo es los items que intervienen en el thread y por que la palabra Box ó AStep? a que refiere esto?, tienen algún orden?

Lo que yo he hecho en este caso es aprovechar el constructor del Thread para pasarle datos que me interesan. En este caso le paso esos valores que luego asigno a propiedades internas del thread dentro del Create:

Código Delphi [-]
constructor TProgressBarThread.Create(Box: TProgressBar; AStep:Integer;
                                      ThreadPriority: TThreadPriority);
begin
  inherited Create(False);
  Self.FStep := AStep;
  pb := Box;
end;

Cuando haces la llamada al Create del Thread ya le pasas los parámetros:

Código Delphi [-]
  Tpb1 := TProgressBarThread.Create(pb1, 1, tpNormal);

Otra opción si te resulta más fácil el dejar el create como lo tiene la clase thread y después de crearlo asignarías los valores de forma manual. Sería algo así:

Código Delphi [-]
  Tpb1 := TProgressBarThread.Create(False);
  Tpb1.Progressbar := pb1;
  Tpb1.Step := 1;
  Tpb1.Priority := tpNormal;

Como tú defines la clase del Thread puedes "redefinir" el Create si te es más cómodo, como he hecho yo.