In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TNotifyIcon: Como iniciar MINIMIZADO?

Foro público de Xailer en español
Responder
Sommus
Mensajes: 310
Registrado: Vie Jul 24, 2009 9:39 pm

TNotifyIcon: Como iniciar MINIMIZADO?

Mensaje por Sommus »

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
Arriba
Avatar de Usuario
xhermita
Mensajes: 177
Registrado: Vie Feb 18, 2011 10:05 pm
Ubicación: Las Palmas de Gran Canaria
Contactar:
Contactar xhermita

TNotifyIcon: Como iniciar MINIMIZADO?

Mensaje por xhermita »

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
>
>
Pedro Amaro
2PC Service
Xailer / Néfele / MySQL-MariaDB / SQLServer
Arriba
Sommus
Mensajes: 310
Registrado: Vie Jul 24, 2009 9:39 pm

TNotifyIcon: Como iniciar MINIMIZADO?

Mensaje por Sommus »

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
>>
>>
>
Arriba
Sommus
Mensajes: 310
Registrado: Vie Jul 24, 2009 9:39 pm

TNotifyIcon: Como iniciar MINIMIZADO?

Mensaje por Sommus »

Caro Pedro,
Valeu pela dica, funcionou muito bem...
Obrigado
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
>>
>>
>
Arriba
Responder

Volver a “Xailer Spanish”