CODEWITHSUNDEEP
formsdelphidelphi-2006
Rafael Cruz
Rafael Cruz

Reputation: 697

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

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.

Upvotes: 8

Views: 8788

Answers (4)

Jlouro
Jlouro

Reputation: 4545

I use

Main.MDIChildCount >0

for Child forms.

Upvotes: 0

IceCold
IceCold

Reputation: 21154

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;

Upvotes: 1

Ondrej Kelle
Ondrej Kelle

Reputation: 37211

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

Upvotes: 21

Marco
Marco

Reputation: 57573

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.

Upvotes: 3

Related Questions