Foros Club Delphi - Ayuda son el RexTrayIcon

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda son el RexTrayIcon (https://www.clubdelphi.com/foros/showthread.php?t=16976)

Ayuda sobre el RxTrayIcon

Hola a Todos los foristas:

Les agradecería si alguien pudiera decirme donde puedo conseguir ayuda sobre como usar el RxTrayIcon

gracias de antemano por su tiempo.

Un hermano Mexicano los Saluda

Simplemente tienes que añadirlo a un Form, ponerle un icono (no es necesario, pero si bonito), y asociarle un PopupMenú.

en la propiedad Icons, puede añadirles varios y activar Animated cuando lo desees (para que parpadee) tambien tienes varios eventos que quizás quieras controlar.

Si tienes alguna duda concreta, avisa.

Saludos

Cita:

Empezado por Lepe (Mensaje 72740)

Si tienes alguna duda concreta, avisa.

wenas, tengo un problemita con este comp. cuando lo quiero minimizar (le doy click al boton minimizar del form [-] no lo coloca en el tray.. lo minimiza normalmente...
queria saber si hay alguna forma para ke al minimizar se coloque en el tray o alguna forma de manejar el evento que ocurre al darle click al boton minimizar de un form..
muchas gracias...

Yo para Eso no suelo utilizar un componente!! aca te dejo este codigo que hace lo mismo ;)

Código:

// En el private del Form



    IconData: TNotifyIconData;

    Procedure SysCommand(var msg: TWMSysCommand);Message WM_SYSCOMMAND;

    Procedure ActivarFrom(Var msg:TMESSAGE);Message WM_USER+1;



....................







procedure TForm1.FormCreate(Sender: TObject);

begin

  //Le asigno el Icono de La aplicacion

   With IconData do

      begin

        cbsize:=sizeof(icondata);

        wnd:=Handle;

        uID:=100;

        uFlags:= NIF_MESSAGE+NIF_ICON + NIF_TIP;

        uCallBackMessage:= WM_User +1;

        hIcon:=application.Icon.Handle;

        StrPCopy(szTip,Application.Title);

      end;

//Agrega el Icono

    shell_NotifyIcon(NIM_ADD,@IconData);

end;



procedure TForm1.SysCommand(var msg: TWMSysCommand);

begin

   if (Msg.CmdType = SC_minimize) or (msg.CmdType=SC_CLOSE) then

     begin

        With IconData do

          begin

            cbsize:=sizeof(icondata);

            wnd:=Handle;

            uID:=100;

            uFlags:= NIF_MESSAGE+NIF_ICON + NIF_TIP;

            uCallBackMessage:= WM_User +1;

            hIcon:=application.Icon.Handle;

            StrPCopy(szTip,Application.Title);

          end;

//Lo Asigno al SystemTry

        shell_NotifyIcon(NIM_ADD,@IconData);

//Lo saco de la Barra de TAreas

        hide;

     end

   else

      DefaultHandler(msg);

end;



procedure TForm1.ActivarFrom(var msg: Tmessage);

var P:Tpoint;

begin

   IF MSG.lPAram = WM_LBUTTONDOWN then

      form1.show

   else

      if msg.LParam = WM_RBUTTONDOWN THEN

       begin

          SetForegroundWindow(Handle);

          GetCursorPos(p);

          PopupMenu1.Popup(p.x, p.y);

          PostMessage(Handle, WM_NULL, 0, 0);

       end;

end;





// Si no queres que la aplicaacion se cierre cuando click en Cerrar en el form close



procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

var

   msg:TWMSysCommand;

begin

if not salida then begin

   canclose:=false;

   msg.CmdType :=SC_minimize;

   SysCommand(msg);

   end

else

   canclose:=true;

end;

Saludos y espero que te sea de ayuda