HowTo: Close all active forms

[mierlp]

hi

 

i have a login/logout procedure and when the user logs out

all active forms must be closed EXCEPT the main form

 

How can i do this ?

 

Regards Peter

[Semper]

Hi,

You can do something like procedure that minimize all open windows in Simple Desktop Demo

 

Regards

[TNT23]

You can to somenthing like this

 

for I := 0 to UniApplication.UniSession.FormsList.Count-1 do Begin
  if TUniForm(UniApplication.UniSession.FormsList.Items).ClassType<>TMainForm then //TMainForm Is the class of the form that you dont want to close
    TUniForm(UniApplication.UniSession.FormsList.Items).Close;
End;
 

[tappatappa]

You can to somenthing like this

 

for I := 0 to UniApplication.UniSession.FormsList.Count-1 do Begin

  if TUniForm(UniApplication.UniSession.FormsList.Items).ClassType<>TMainForm then //TMainForm Is the class of the form that you dont want to close

    TUniForm(UniApplication.UniSession.FormsList.Items).Close;

End;

 

 

Hi tnt23,

once I tried something like that, but I found it a little dangerous: it may have a strange behaviour when exceptions are thrown. On the other hand, it surely is the simplest way to achieve what mierlp is asking for.