Olha, eu uso isto pra fechar forms filhos
procedure TFormPrinc.FechaForms;
var
n: integer;
begin
for n:=0 to MDIChildCount -1 do
begin
try
MDIChildren[n].Close;
finally
if MDIChildren[n] <> NIL then
MDIChildren[n].Release;
end;
end;
end;
Da uma estudada que dá pra vc tirar uma idéia de como fazer o q precisa
2006/10/24, Wagner Araujo <[EMAIL PROTECTED]>:
>
> Bom dia!
>
> Alguem poderia me ajudar?
> Gostaria de criar uma rotina para fechar todo as queries e conections em
> tempo de compilação.
>
> será que alguem tem uma solução simples e eficaz.
>
> valeu galera fico no aguardo.
>
> --
> Att.,
>
> Wagner Araujo
> (11) 8377-7633 (11)6446-3920
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
