Jak uzyskać listę ze wszystkich otwartych formularzy mojego oprogramowania?

Question

Chcę poprosić użytkownika o zamknięcie wszystkich otwartych formularzy przed zakończeniem mojej aplikacji.

Jak mogę automatycznie uzyskać listę z otwartych formularzy?

Używam Delphi 2006 i nie korzystam z automatycznego tworzenia formularza, ale korzystam z automatycznie utworzonego formularza o numerze var z Application.CreateForm.

Pozdrawiam.

Answer 1

Spójrz na Screen.FormCount i Screen.Forms.

Answer 2

Możliwym rozwiązaniem (używam w C#) jest przechowywanie każdej otwartej instancji formularza w liście var. Na przykład można mieć globalną listę o nazwie openedForms; kiedy tworzony jest każdy formularz, sam formularz może dodać jego odniesienie do openedForms i usunąć go podczas zamykania.
Gdy użytkownik próbuje zamknąć twoją aplikację, możesz sprawdzić, czy liczba list jest większa od zera, a jeśli użytkownik naprawdę chce się zamknąć, zamykasz z wdziękiem każdą instancję formularza zawartą w opensForms przed zamknięciem aplikacji.

Answer 3

używam

Main.MDIChildCount >0 

dla dziecka 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; 

Pokazuje MDI i formy non-MDI.