Boa noite Thales. Muito obrigado, era realmente o que estava precisando para resolver meu problema. Valeu mesmo.
Ricardo Ravelli. Em 22/01/08, Thales (Shubacca) - Tebo Software <[EMAIL PROTECTED]> escreveu: > > Na realidade, > você deve utilizar o formprincipal.MDIChildCount para saber a quantidades > de > janelas abertas, e dentro de uma estrutura de for, voce corre e utilizando > formprincipal.MDIChildren[i] voce vai testando a classe e fecha os q vc > quiser: > > procedure TForm1.Button1Click(Sender: TObject); > var > i :Integer; > begin > for i := 0 to Self.MDIChildCount -1 do > if Self.MDIChildren[i] is TForm2 then > Self.MDIChildren[i].Close; > end; > > espero ter ajudado > > falow > > -- > Thales Eduardo Barros de Oliveira > Desenvolvedor Delphi / Firebird > Emails: > [EMAIL PROTECTED] <tebosoftware%40gmail.com> (GoogleTalk) > [EMAIL PROTECTED] <thales_oli%40hotmail.com> (MSN) > Blog: > http://tebosoftware.blogspot.com/ > > "Tente ser uma pessoa de valor, não de sucesso" > Albert Einstein > > Em 21/01/08, Ricardo Ravelli <[EMAIL PROTECTED]<ricardoravelli%40gmail.com>> > escreveu: > > > > > Boa noite a todos, > > > > Tenho uma aplicação MDI que no evento onclose do form principal faço com > > que > > ele oculte e fique somente no icon tray. Mas o problema é quando tem > algum > > form MDIChild aberto, ao tentar fazer ocultar o sistema não oculta > > direito. > > > > No evento onclose do form principal: > > > > Action := caNone; > > FrmPrincipal.Hide; > > > > A minha dúvida é a seguinte: como eu faço pra verificar se tem qualquer > > form > > "filho" aberto no sistema e fechar esses forms filhos de f dentro do > form > > principal?? > > Já tentei usar IF( NomeForm <> NIL ) then só que mesmo que o form filho > > esteje aberto ele aparece sendo igual a NIL.. > > > > Por favor, se alguém puder me ajudar com esse problema, alguém que > > trabalha > > com aplicações MDI, é o meu primeiro sistema em formato MDI. > > > > Obrigado. > > Ricardo Ravelli. > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > [As partes desta mensagem que não continham texto foram removidas]