How to get a list from all opened forms of my software?

Question

I want to ask the user to close all opened forms before terminate my application.

How can I automatically get a list from opened forms?

I'm using Delphi 2006, and don't using form's Auto-Create, but I'm using the auto created form's referenced var with Application.CreateForm.

My regards.

Answer 1

Have a look at Screen.FormCount and Screen.Forms.

Answer 2

A possible solution (I use in C#) is to store every opened form instance in a list var. For example you could have a global list named openedForms; when every form is created, form itself can add its reference to openedForms and remove it when closing.
When user tries to close your app, you could check that list count is greater than zero and, if user wants really close, you close gracefully every form instance contained in openedForms before shutting the app down.

Answer 3

procedure ShowAllForms;
VAR i: Integer;
begin
  for i:= 0 to Screen.FormCount-1 DO
   ShowMessage(Screen.Forms[i].Name); 
end;

or if you want to show also the MDI forms:

procedure ShowAllForms;
var i:integer;
begin
  with Application do
   for i:=0 to componentcount-1 do
    if components[i] is TMyCustomForm          //your form class here, or simply TForm
    then ShowMessage(components[i].Name);
end;

Answer 4

I use

Main.MDIChildCount >0

for Child forms.