Minimizar al trayicon

[ecfisa]

Empezado por aguml

Por cierto ecfisa, lo que me indicas no está del todo bien ya que si o si ejecutas la accion por defecto y si yo lo oculto a la icontray y luego ejecuto la accion por defecto es como si no hubiera hecho nada ya que me aparece minimizado y no es lo que deseo. Asi si va:

Es cierto, la verdad es que me interesaba destacar la forma correcta de la declaración y escribí el ejemplo sobre el mensaje sin haberlo probado. Se me escapó ese detalle...

Saludos

[[escafandra]]

He hecho algún pequeño cambio en el componente y ya funciona como esperaba aguml, no hay nuevas propiedades.

Para evitar el cierre de la app y llevarla en segundo plano al Systray sólo tenemos que actuar en el formulario de la siguiente manera:

Código PHP:

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
  SysTrayIcon1->Visible = true;
  SysTrayIcon1->Hide = true;
  SysTrayIcon1->Minimize();
  CanClose = false;
} 


El enlace de la actualización de TSysTrayIcon lo tienes aquí.

PD/ Ya no es necesario el uso de OnWMSysCommand

Saludos.

[aguml]

me pierdo un poco porque no se donde está formclosequery y que es eso de canclose. ¿Es un evento de TForm de los que vienen por defecto? Y si hago eso y luego coloco un boton para cerrar el form ¿Pongo close() y ya está? ¿O tengo que cambiar antes el valor de canclose? ¿Y si le doy a minimizar ¿En que evento coloco el codigo para que minimice a las systray? Una cosa, ¿No hubiese sido mas sencillo crear por ejemplo la propiedad buttonbarminimize que pueda valer por ejemplo buttonclose y buttonminimize y otra propiedad que por ejemplo llamemos sysminimize de tipo bool y que donde haces en tu componente el hook a esos mensajes de la sysbar, si tenemos a true esa propiedad, dependiendo del valor de la otra propiedad usemos un boton o el otro para minimizarlo a la systray? Es una sugerencia, el maestro eres tu :-P

[[escafandra]]

OnCloseQuery es un evento del formulario que se activa justo antes que OnClose. Si CanClose toma el valor true el formulario se cierre, en caso contrario no.


Saludos.

[[escafandra]]

Empezado por aguml

¿No hubiese sido mas sencillo crear por ejemplo la propiedad buttonbarminimize que pueda valer por ejemplo buttonclose y buttonminimize y otra propiedad que por ejemplo llamemos sysminimize de tipo bool y que donde haces en tu componente el hook a esos mensajes de la sysbar, si tenemos a true esa propiedad, dependiendo del valor de la otra propiedad usemos un boton o el otro para minimizarlo a la systray?

Si se sobrecarga el componente de propiedades y eventos que puede manejar el Form, deja de ser intuitivo y liamos al personal. El evento OnCloseQuery está diseñado para el control de la salida o no del formulario y es común usarlo. Con las propiedades que tiene TSysTrayIcon se consigue hacer casi todo lo que un desarrollador pretende de él.

Prueba la nueva versión, ya no te hace falta el uso de OnWMSysCommand, lo hace el mismo componente. Pero tu programas lo que se hará en OnMinimize o en OnRestore, que para eso implementé esos eventos del componente.


Saludos.

[aguml]

ok, lo pruebo y comento.

[aguml]

Amigo, lo he probado y no funciona exactamente como esperaba.
Te explico, lo ideal es poder elegir entre si se debe ocultar al cerrar o solo cerrarse. Eso ya está solucionado en tu componente.
El otro punto es si se debe ocultar al minimizar, o simplemente minimizarse. Eso sin el hook no soy capaz de conseguirlo. Es mas, DefaultHandler no funciona como debiera ya que lo minimiza pero no a la barra de tareas sino que lo minimiza en el lado izquierdo de la pantalla y sigues viendo la barra superior del form con los tres botones mientras que con TForm:ispatch(&Msg) se minimiza a la barra de tareas.

He modificado el proyecto que subí anteriormente para hacer pruebas y lo adjunto para que veas lo que digo. En este sigo teniendo la funcion que me dices que no hace falta para que veas que funciona e intentes hacerlo funcionar sin ella de igual manera.

Link: https://mega.co.nz/#!81cwEYrb!zkHzVP...GFkxV-DzgWuzT8

A ver si puedes verlo y me cuentas, que a lo mejor se puede sin esa funcion y soy yo el que no ve como jejeje.

[[escafandra]]

He visto lo que dices y he dado unas vueltas al control TSysTrayIcon tenía un bug en la última actualización. Descarga la última versión.

Debes cambiar tu código de la siguiente forma:

En Main.h añade:

Código PHP:

private:
   bool SyStrayCanClose; 


En el código Main.cpp eliminas OnWMSysCommand y su declaración, además modificas lo siguiente:

Código PHP:

void __fastcall TForm1::SysTrayIcon1Restore(TObject *Sender)
{
   SysTrayIcon1->Visible = false;
   SysTrayIcon1->Hide = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::SysTrayIcon1Minimize(TObject *Sender)
{
   bool SysTray = CheckBoxMinToSysTray->Checked && ComboBox1->ItemIndex >= 1;
   SysTray |= !SyStrayCanClose;
   SyStrayCanClose = true;
   SysTrayIcon1->Visible = SysTray;
   SysTrayIcon1->Hide = SysTray;
   if(SysTrayIcon1->Animate == true)
      SysTrayIcon1->ShowBalloon("Buscando el serial","Estoy buscando el serial, por favor espere a que termine.");
   else
      SysTrayIcon1->ShowBalloon("Sin actividad","Ahora mismo no estoy realizando ninguna busqueda.\nPermanezco aquí esperando a que me pongas a currar.");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
   if(CloseApp){
      CanClose = CloseApp;
   }else{
      CanClose = !(CheckBoxMinToSysTray->Checked && ComboBox1->ItemIndex != 1);
      SyStrayCanClose = CanClose;
      SysTrayIcon1->Minimize();
   }
} 


Saludos.