Listar janelas abertas no meu sistema

Delphi

11/01/2005

Olá...

Como faço pra listar todos os FORMS abertos no meu sistema? E não deixar meu sistema ser encerrado sem antes fechar todas os Forms?


Facc

Facc

Curtidas 0

Respostas

Massuda

Massuda

11/01/2005

Como faço pra listar todos os FORMS abertos no meu sistema?

Use as propriedades Forms e FormCount da variável global Screen. Para mais informações, procure na ajuda do Delphi por TScreen.Forms e TScreen.FormCount.

E não deixar meu sistema ser encerrado sem antes fechar todas os Forms?

Não testei... No evento OnCloseQuery do seu form principal, faça algo deste tipo:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Screen.FormCount = 1;
end;



GOSTEI 0
POSTAR