🚀 go-pugleaf

--------------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.

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


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

<HTML>
Hello!

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

<P>Something like:

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

<P>Well, I hope You get the idea.
<BR>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.

<P>Waiting for some answer...
<BR>/JH
<BR>&nbsp;</HTML>

--------------EF8276A2AD7B516805A21D1A--