Multiple instances of form 1

[shmilyca]

Hi,
My app resides in system tray. When it runs firsttime it loads 6-8 instance of a form say TForm1 (nonmodal) reading values from database and displaying it.
Form1.Create & Form1.Show methods are executed from another form. Right now if you run application you see first window is loaded...then it read second record from database and display second form...third form ..like wise all forms. Even though all this happens fast its irritating poping one window after another.
How can I Load all forms in memory..and show all forms or hide all window in just one action?
Another question is if there are many forms reside in memeory would it cause memory problems?

 

[Nordlund]

Create all forms and store them in a TList.
Then, when all forms are created, loop the list and show them all in a flash...

  List := TList.Create;
  ...

  // Record 1
  List.Add(TForm1.Create(application));
  ...
  ...
  ...
  // Record 5
  List.Add(TForm1.Create(application));

  for nIdx := 0 to List.Count-1 do
    TForm(List[nIdx]).Show;

  ...
  List.Free;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"There is always another way to solve it, but I prefer my way.

 

[shmilyca]

I appriciate your time & help.When I tried it.I got Access Violation Error..How to close all windows in one action? Any otherthing you can think of?

Thank you

 

[sggaunt]

I would say lots of forms in memory is not a good idea.
Is your application a MDI (multi document interface)? If so there are ways of closing all the child forms neatly.


Steve: Delphi a feersum engin indeed.

 

[shmilyca]

No dont have MDI Interface..Please let me know if you find anything.

 

[Nordlund]

The List should then be global and run the following (..or similar) for-loop to close them:

If the OnCloseQuery eventhandler returns false, the Form cannot be closed, therefore the f.CloseQuery query.

var
  F: TForm1;
  nIdx: Integer;
begin
  for nIdx := List.Count -1 downto 0 do
  begin
    F := TForm1(List[nIdx];
    if F.CloseQuery then
    begin
      F.Close;
      F.Free;
      List.Delete(nIdx);
    end;
  end;
end;

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
-"There is always another way to solve it, but I prefer my way.