🚀 go-pugleaf

Hello,

Meine English-Kenntnisse beziehen sich nur aufs lesen deshalb in
deutsch:
Zum sofortigen Anzeigen in einer Procedure Refresh aufrufen =>

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

J�rgen H�gglund schrieb:
> 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.

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

By Peter