Jump to content

HowTo: Close all active forms


mierlp

Recommended Posts

  • 1 month later...

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;
 

Link to comment
Share on other sites

  • 2 weeks later...

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.

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...