Fórum Listar janelas abertas no meu sistema #264816
11/01/2005
0
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?
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
Curtir tópico
+ 0
Responder
Posts
11/01/2005
Massuda
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)