Obviously I was not so clear on my goals. Here's an attempt to provide an example, stripped of all non-essential details. Hopefully I present it correctly. I have a 'main' unit (Main.pas) with a form. On the form is ProgressBar1 (a TProgressBar component) I have a 'uses' unit (Unit1.pas) that does processing and the goal is to show the progress of this processing by updating the ProgressBar on the main form.
(1) Type PProgressBar = ^TProgressBar ; //Declare pointer type (2) Var ProgressBar1Ptr : PProgressBar ; //Declare pointer variable (3) ProgressBar1Ptr := PProgressBar(ProgressBar1) ; //Assign value to pointer (4) TProgressBar(ProgressBarPtr).Position := CalculatedBarPosition ; Line 1 and 2 are visible to both Main and Unit1. Line 3 is executed in Main to set the value to the pointer. Line 4 is executed in Unit1 is update the position of the progress bar. Again, thanks in advance for your attention and any hints, Gerry B. _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
