Aggiornamento di una ProgressBar da un thread

[VaLvOnAuTa]

Sto creando una classe (derivata da TThread) che contiene un IdTCPClient (componente Indy).
Volevo far sì che sull'evento on work del TCPClient il thread aggornasse una progressbar sul form.
Esiste un sistema, che non sia chiamare brutalmente la progress bar attraverso Form1.ProgressBar1, per accedere alle proprietà del main form?

In alternativa ha senso dichiarare una customprogressbar nella classe del thread e dichiarare nel form questo componente anzichè quello di default?

[alka]

Puoi accedere al "main form" anche attraverso l'omonima proprietà dell'oggetto Application (unit Forms). In ogni caso, devi sempre fare un "cast" alla classe del tuo form principale per accedere ai controlli visuali al suo interno, ovviamente all'interno di un metodo della classe del tuo thread che venga passato come parametro a Synchronize.

In alternativa, potresti prevedere l'aggiornamento di una variabile intera appartenente al thread, un campo insomma, con lo stato del processo; dal MainForm, con un banale TTimer, leggi periodicamente quel valore, magari ispezionando lo stato del thread con un flag apposito, e lo visualizzi in una TProgressBar.

Ciao!