Minimizar al trayicon

[aguml]

Hola amigos, tengo esto:
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)

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:


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]

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:


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!6GSaf6XMEICAhflRK7-OR6U7zWumbnPmleTPSDZtoNg

Está en Main.h y Main.cpp

[ecfisa]

Hola aguml.
Hola amigos, tengo esto:

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:

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



...
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:
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]

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:


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í (http://www.delphiaccess.com/forum/componentes-12/systrayicon/msg13138/#msg13138).

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]

¿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::Dispatch(&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!zkHzVPr7zOQN8HnJknGkJOX6KAKPTGFkxV-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. :p

[escafandra]

He visto lo que dices y he dado unas vueltas al control TSysTrayIcon tenía un bug en la última actualización. Descarga (http://www.delphiaccess.com/forum/componentes-12/systrayicon/msg13138/#msg13138) la última versión.

Debes cambiar tu código de la siguiente forma:

En Main.h añade:

private:
bool SyStrayCanClose;


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

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.