Na verdade, é Screen.FormCount e Screen.Forms[i]...

Mas funcionou, valew...


--- Em delphi-br@yahoogrupos.com.br, "Filipe" <[EMAIL PROTECTED]> escreveu
> naum teste, mas tenta algo assim:
> 
> var
>   i: Integer
> begin
>   for i := 0 to Application.FormCount do
>     if not Application.Forms[i].ModalResult = mrOk then
>       Application.Forms[i].Hide;
> 
> 
> flw.
> 
> 
>   ----- Original Message ----- 
>   From: Osmar de Souza Júnior 
>   To: delphi-br@yahoogrupos.com.br 
>   Sent: Monday, February 14, 2005 7:23 AM
>   Subject: [delphi-br] Mostar somente o Form ativo
> 
> 
> 
> 
>   Como faço para mostrar somente o form que está ativo (quando dou um
>   ShowModal), fazendo com que todas as telas em background sejam
>   escondidas ???
> 
> 
> 
> 
> 
>   -- 
>   <<<<< 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] ou [EMAIL PROTECTED]
> 
> 
> 
>         Yahoo! Grupos, um serviço oferecido por: 
>              
>              
>                       
>              
>        
> 
> 
>
------------------------------------------------------------------------------
>   Links do Yahoo! Grupos
> 
>     a.. Para visitar o site do seu grupo na web, acesse:
>     http://br.groups.yahoo.com/group/delphi-br/
>       
>     b.. Para sair deste grupo, envie um e-mail para:
>     [EMAIL PROTECTED]
>       
>     c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos
do Serviço do Yahoo!. 
> 
> 
> 
> [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] ou [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

 



Responder a