🚀 go-pugleaf

In article <34201197.69F44A4A@algonet.se>, =?iso-
8859-1?q?J=F6rgen_H=E4gglund?= <dataswed@algonet.se> writes
>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.
>
>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...
>/JH
>

You need to move this to a different event, try FormActivate or
FormShow.

You may need a flag so that your code is only executed when the form is
first created.
-- 
Alan Black