Progress Bar when Main Form Creation

[runs]

I want a progress bar (database calcs) when main form is being created.

I've try:

Code: Pascal  [Select][+][-]

1.   Screen.Cursor:= crHourglass;
2.   Application.ShowMainForm:= False;
3.   //The progress bar to show the database creation or load:
4.   FrmPrgBar:= TFrmPrgBar.Create(Application);
5.   FrmPrgBar.ShowOnTop;
6.   Application.ShowMainForm:= True; //next created Form will be the Main Form
7.   Application.CreateForm(TFrmMain, FrmMain);
8.   FrmPrgBar.Close; //Close the progressbar
9.   Screen.Cursor:= crDefault;
10.   Application.Run;  

But access violation errors when  I try to access to FrmPrg inside FrmMain:

Code: Pascal  [Select][+][-]

1. FrmPrgBar.PrgBar.StepIt;

Any suggestion?

[WooBean]

I want a progress bar (database calcs) when main form is being created.

I've try:

Code: Pascal  [Select][+][-]

1.  ...
2.   Application.CreateForm(TFrmMain, FrmMain);
3.  ...
4.   Application.Run;  

But access violation errors when  I try to access to FrmPrg inside FrmMain:

Code: Pascal  [Select][+][-]

1. FrmPrgBar.PrgBar.StepIt;

Any suggestion?

Normally any LCL project source contains a sequence as below:

Code: Pascal  [Select][+][-]

1.   Application.Initialize; //this one seems to be missing in your code
2.   Application.CreateForm(TForm1, Form1);
3.   Application.Run;
4.  

Where have you got your "Application.Initialize;" line of code ?

[Handoko]

@runs

If it is on mainform, usually you can solve the error by moving the code to TForm.OnShow event.

[runs]

Code: Pascal  [Select][+][-]

1.  
2. Application.Initialize;  
3. with TFrmPrgBar.Create(nil) do
4.         try
5.         Show;
6.         Application.ShowMainForm:= True; //next created Form will be the Main Form
7.         Application.CreateForm(TFrmMain, FrmMain);
8.         finally
9.         Free;
10.     end;
11.         Application.Run;  

But I get a error message when application.run:

In this line of control.inc an AccessViolation:

Code: Pascal  [Select][+][-]

1.  GetTextMethod := TMethod(@Self.GetTextBuf);

[Handoko]

Bugs can hide in anywhere in the project. Please provide the compilable source. Copy all the files to a new folder except: *.bak, binary and the lib folder. Compress the folder and send the zip file to the forum.

If you're not willing to publicize your project, you can write a demo that showing the issue.

[WooBean]

Code: Pascal  [Select][+][-]

1.  
2. Application.Initialize;  
3. with TFrmPrgBar.Create(nil) do
4.         try
5.         Show;
6.         Application.ShowMainForm:= True; //next created Form will be the Main Form
7.         Application.CreateForm(TFrmMain, FrmMain);
8.         finally
9.         Free;
10.     end;
11.         Application.Run;  

But I get a error message when application.run:

In this line of control.inc an AccessViolation:

Code: Pascal  [Select][+][-]

1.  GetTextMethod := TMethod(@Self.GetTextBuf);

Well, I guess that inside FrmMain.OnCreate event you (want to) call TFrmPrgBar type form but there is no way of addressing it - no variable contains its address as it was hidden by "with TFrmPrgBar.Create(nil) do".
My advice: simplier or working code = better than just invented. Use "with .. do" very very carefully. 

[howardpc]

See the attached project for a working skeleton app with a progressbar splash screen.

[runs]

Finally I get it working. With your tips and advices.

Thanks you all, folks!!!