Initial process that starts after open form

[dek]

I would like to start an initial process when the program starts.
The form does not appear until finish the process if I put it in TForm1.FormCreate procedure. Since it takes a time, I would like to open or show the form first.

How can I open the form first? Is there any procedure to execute after open the form?

Please advise.

[Leledumbo]

You can use either OnShow or OnActivate event. Declare a local typed constant so that the process isn't repeated everytime (i.e. only once).

[Bart]

You can do something like:

declare the procedure like:
procedure DoIt(DummyParam: PtrInt);

then in OnActivate do
  Application.QueueAsyncCall(@DoIt, 0);

It will queue DoIt in the Apllication queue, so it will be executed after all items in the queue are handled. In effect this means that DoIt will be executed after the form has been drawn on the screen.

Bart

[dek]

Thanks, Bart.

That is what I am looking for!
It works well for me.

Thanks again.

[Phil]

Thanks, Bart.

That is what I am looking for!
It works well for me.

Thanks again.

Here's what I use, which looks a bit cleaner:

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  MainForm.Show;  {Display main form as backdrop}
  if MainForm.StartUpProgram then  {your routine here}
    Application.Run;

Thanks.

-Phil