Minimizar al trayicon

[aguml]

Hola amigos, tengo esto:

Código PHP:

private:    // User declarations
   // Capturar mensajes al form
  void __fastcall OnWMSysCommand(TWMSysCommand &Msg); //message WM_SYSCOMMAND;
  TWndMethod OldWMSysCommand;
  void __fastcall NewWMSysCommand(TMessage& Message);
protected:
   BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, OnWMSysCommand)
   END_MESSAGE_MAP(TForm) 


Código PHP:

void __fastcall TForm1::OnWMSysCommand(TWMSysCommand &Msg)
{
   // Minimizando?
   if (Msg.CmdType == SC_MINIMIZE){
      // Accion de ocultar el form
      SysTrayIcon1->Minimize();
   }else{
      // comportamiento estandard
      DefaultHandler(Msg);
   }
} 


y no me compila dando el error:

[C++ Error] Main.cpp(412): E2316 '_fastcall TForm1::OnWMSysCommand(TMessage &)' is not a member of 'TForm1'

¿Me podeis ayudar?

[aguml]

al final lo he podido solucionar. Solo tuve que cambiar el DefaultHandle por DispathMessage.

[[escafandra]]

No comprendo porqué quieres manejar el mensaje SC_MINIMIZE para forzar a SysTrayIcon a ejecutar Minimize() cuando eso ya lo detecta por si solo el componente. Fíjate en este fragmento de código de SysTrayIcon:

Código PHP:

bool __fastcall TSysTrayIcon::ApplicationHookProc(TMessage &Message)
{
   if (Message.Msg == WM_SYSCOMMAND)
   {
      if (Message.WParam == SC_MINIMIZE)
         Minimize();
      if (Message.WParam == SC_RESTORE)
         Restore();
   }

   return false;
} 


Tiene capturado ("hookeado") el mensaje WM_SYSCOMMAND de la aplicación para detectar SC_MINIMIZE y SC_RESTORE. No tiene sentido rehacerlo, ¿qué necesidad has encontrado para hacerlo?

Saludos.

[aguml]

Empezado por escafandra

No comprendo porqué quieres manejar el mensaje SC_MINIMIZE para forzar a SysTrayIcon a ejecutar Minimize() cuando eso ya lo detecta por si solo el componente. Fíjate en este fragmento de código de SysTrayIcon:

Código PHP:

bool __fastcall TSysTrayIcon::ApplicationHookProc(TMessage &Message)
{
   if (Message.Msg == WM_SYSCOMMAND)
   {
      if (Message.WParam == SC_MINIMIZE)
         Minimize();
      if (Message.WParam == SC_RESTORE)
         Restore();
   }

   return false;
} 


Tiene capturado ("hookeado") el mensaje WM_SYSCOMMAND de la aplicación para detectar SC_MINIMIZE y SC_RESTORE. No tiene sentido rehacerlo, ¿qué necesidad has encontrado para hacerlo?

Saludos.

Pues amigo, algo raro pasaba porque al yo minimizar el form no se minimizaba al tray icon.
Te pongo el link para que lo puedas mirar: https://mega.co.nz/#!xpNmESJI!6GSaf6...nPmleTPSDZtoNg

Está en Main.h y Main.cpp

[ecfisa]

Hola aguml.

Empezado por aguml

Hola amigos, tengo esto:

Código PHP:

private:    // User declarations
   // Capturar mensajes al form
  void __fastcall OnWMSysCommand(TWMSysCommand &Msg); //message WM_SYSCOMMAND;
  TWndMethod OldWMSysCommand;
  void __fastcall NewWMSysCommand(TMessage& Message);
protected:
   BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, OnWMSysCommand)
   END_MESSAGE_MAP(TForm) 


...

y no me compila dando el error:

¿Me podeis ayudar?

Fuera de tópico, mas allá de la explicación sobre el componente que te ha dado escafandra, para cualquier otro caso ese código no va a funcionar.

Debería bastar con:

Código PHP:

...
class TForm1 : public TForm
{
private:
  void __fastcall WMSysCommand(TWMSysCommand &Msg);

protected:
  BEGIN_MESSAGE_MAP
  VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TWMSysCommand, WMSysCommand)
  END_MESSAGE_MAP(TForm)

__published:

public:
  __fastcall TForm1(TComponent* Owner);
};
extern PACKAGE TForm1 *Form1;
... 


Código PHP:

...
void __fastcall TForm1::WMSysCommand(TWMSysCommand &Msg)
{
  switch (Msg.CmdType) {
    case SC_MINIMIZE: ShowMessage("Minimize");break;
    case SC_RESTORE : ShowMessage("Restore"); break;
    case SC_MAXIMIZE: ShowMessage("Maximize");break;
  }
  DefaultHandler(&Msg);
}
... 


Saludos

[[escafandra]]

Ya se a que te refieres, aguml. El componente no está diseñado para cambiar la visibilidad del formulario en el evento OnMinimize pero es fácil de solucionar.

Hoy es tarde para mi. Mañana te subo un cambio en el componente que permitirá hacerlo.


Saludos.

[aguml]

ok, mil gracias amigo.
Supongo que tendras que añadir alguna propiedad para indicar si queremos que lo haga o no ¿verdad? Ya puestos estaria bien que podamos elegir que debe hacer al pulsar el boton de cerrar ya que hay muchas aplicaciones que al darle al boton cerrar de la barra del form te colocan la aplicacion en el systrayicon.
De momento he aprendido mucho intentando solucionarlo.
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:

Código PHP:

void __fastcall TForm1::OnWMSysCommand(TWMSysCommand &Msg)
{
   // Minimizando?
   switch(Msg.CmdType)
   {
      case SC_MINIMIZE:
         // Accion de ocultar el form
         SysTrayIcon1->Minimize();
         break;

      default:
         // comportamiento estandard
         DefaultHandler(&Msg);
   }
} 


Aunque no se como solucionar este warning que me muestra:

[C++ Warning] Main.h(82): W8027 Functions containing switch are not expanded inline

Es por lo que hay colocado en el protected pero a mi eso que dice es como si me hablara en chino jejeje.

[aguml]

otra cosa ¿Que diferencia hay entre usar DispathMessage y usar DefaultHandler? En ambos casos me funciona perfecto.

[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.