Ayuda son el RexTrayIcon

[El_Perrito]

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

[[Lepe]]

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

[aquosoft]

Empezado por Lepe

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

[Enan0]

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

// 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