Buenas, pusiste un ejemplo en el foro para minimizar una ventana en el
Systray que va bien pulsando sobre el botón minimmizar, pero como hacer
que arranque directamente minimizado, soy incapaz ya que si le fuerzo a
::Minimize() en el Initialize por ejemplo lo hace en la barra de tareas
y no en el systray.
--
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.
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.
Pregunta para Ignacio
-
Bingen Ugaldebere
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
-
Pedro Amaro
- Mensajes: 157
- Registrado: Jue May 18, 2006 5:10 pm
Pregunta para Ignacio
No soy Ignasio, pero me pico la curiosidad tu pregunta y le eche un ojo al
codigo;
Si haces el ::Minimize en el Initialize no se ejecuta el codigo de la
systray porque no se pintado aun el formulario, y el codigo esta en
FormSize, yo lo he puesto en el FormShow añadiendo un "DATA lIniciado INIT
..F." para controlar que solo se ejecute la primera vez que pretenda
presentarlo.
METHOD FormShow( oSender ) CLASS TForm1
if ::lIniciado == .F.
::Minimize()
::lIniciado := .T.
end if
RETURN Nil
Jose Gimenez escribio un articulo en levante 3000
http://www.levante3000.org/blogs/index. ... 5&more=1&a mp;c=1&tb=1&pb=1#more15
sobre este tema.
Un saludo
Pedro Amaro
codigo;
Si haces el ::Minimize en el Initialize no se ejecuta el codigo de la
systray porque no se pintado aun el formulario, y el codigo esta en
FormSize, yo lo he puesto en el FormShow añadiendo un "DATA lIniciado INIT
..F." para controlar que solo se ejecute la primera vez que pretenda
presentarlo.
METHOD FormShow( oSender ) CLASS TForm1
if ::lIniciado == .F.
::Minimize()
::lIniciado := .T.
end if
RETURN Nil
Jose Gimenez escribio un articulo en levante 3000
http://www.levante3000.org/blogs/index. ... 5&more=1&a mp;c=1&tb=1&pb=1#more15
sobre este tema.
Un saludo
Pedro Amaro
-
Bingen Ugaldebere
- Mensajes: 1310
- Registrado: Mié Sep 26, 2007 7:12 pm
Pregunta para Ignacio
Muchas gracias Pedro
> Si haces el ::Minimize en el Initialize no se ejecuta el codigo de la
> systray porque no se pintado aun el formulario,
Efectivamente. pero no supe resolverlo.
Ahora va como yo quería.
Salu2.
> Si haces el ::Minimize en el Initialize no se ejecuta el codigo de la
> systray porque no se pintado aun el formulario,
Efectivamente. pero no supe resolverlo.
Ahora va como yo quería.
Salu2.