Página 1 de 1

Pregunta para Ignacio

Publicado: Vie Jul 13, 2007 7:27 pm
por Bingen Ugaldebere
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.
--

Pregunta para Ignacio

Publicado: Sab Jul 14, 2007 10:48 am
por Pedro Amaro
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

Pregunta para Ignacio

Publicado: Lun Jul 16, 2007 9:09 am
por Bingen Ugaldebere
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.