🚀 go-pugleaf

"J�rgen H�gglund" <dataswed@algonet.se> wrote:


>--------------EF8276A2AD7B516805A21D1A
>Content-Type: text/plain; charset=us-ascii
>Content-Transfer-Encoding: 7bit

>Hello!

>I hope there is someone out there who can help me with this problem.
>I want to show event/progress of initialization in my main form's
>statusbar.

Put an Application.ProcessMessages; right after each statusbar update.

StatusBar.SimpleText := 'foo';
Application.ProcessMessages;
LoadData;

That will allow the message queue a chance to flush.

Jay Cole

>Something like:

>procedure TMainForm.FormCreate(Sender: TObject);
>begin
>  // Draw form and it's contents here
>  StatusBar.SimpleText := 'Step 1 of 3: Loading data';
>  LoadData;
>  StatusBar.SimpleText := 'Step 2 of 3: Gathering information';
>  GatherInfo;
>  StatusBar.SimpleText := 'Step 3 of 3: Initializing everything';
>  InitializeMyData;
>end.

>Well, I hope You get the idea.
>What's so frustrating is that I can't get my form to show before I start
>executing my initialization code, so the result will be that StatusBar
>shows 'Step 3 of 3:...' and all my code is already run.

>Waiting for some answer...

My real address is @bgn.mindspring.com to prevent spam.