Caro Pedro,
Obrigado pela atenção, vou testar sua solução e posto o resultado...
Reginaldo
"Pedro Amaro" <
xhermita@hotmail.com> escreveu na notícia da
mensagem:4dc3c0be$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Yo lo aplico de la siguiente forma.
>
> Al formulario le añado un "DATA lInicializado" para evitar recursividad
>
> En el metodo Show si es la primera vez que se ejecuta ( ::lInicializado !=
> .T. ) preparo el NotifyIcon y miniminizo el formulario
>
> // ----------------------------------------------------------
> METHOD FormShow( oSender ) CLASS frmVisinfXA
>
> IF !::lInicializado
> ::cText :="Visualizador de Informes"
> ::lInicializado := .T.
> ::oNotifyIcon1:cTooltip := ::cText
> ::Minimize()
> ENDIF
>
> RETURN Nil
> // ----------------------------------------------------------
>
>
> Luego en el metodo Size es donde hago visible o no el formulario
> dependiendo de si esta minimizado o no.
>
> // ----------------------------------------------------------
> METHOD FormSize( oSender, nSizeType, nClientWidth, nClientHeight ) CLASS
> frmVisinfXA
>
> IF ::lInicializado
> ::oNotifyIcon1:lVisible := ( nSizeType == 1 )
> ::lVisible := !::oNotifyIcon1:lVisible
> ENDIF
>
> RETURN Nil
> // ----------------------------------------------------------
>
> Hasta hora ha funcionado bien, es cierto que al cargar el programa y por
> un brebisimo espacio de tiempo se ve el formulario.
>
> Un saludo
> Pedro Amaro
>
>
> El 05/05/2011 15:15, Sommus - Reginaldo escribió:
>> Caros,
>>
>> Fiz um pequeno programa que irá rodar com TNotifyIcon, porém não consigo
>> fazer com que esse programa, ao iniciar, vá direto para a bandeja, SEM
>> mostrar o formulário principal, como faço isso?
>>
>> Procurei aqui no grupo, mas, não encontrei solução,
>>
>> Obrigado pela atenção,
>>
>> Reginaldo
>>
>>
>