How to get a list from all opened forms of my soft

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

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 2

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

Answer 3

I use

Main.MDIChildCount >0

for Child froms

Answer 4

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;

Shows MDI and non-MDI forms.