TTrayIcon como usarlo ?

[Dado de baja]

Hola.

Estoy con el TtrayIcon y no consigo que funciones. Por desconocimiento.

Me gustaría saber como hacer que la aplicación se vaya a la bandeja de tareas al:
- Arrancar aplicación. (opcional).
- Al minimizar.
Y restaurar con una opción del PopupMenu.

Esto es lo más urgente.

¿ alguien tiene algún ejemplo ? o me pude decir las pautas a seguir ?

Saludos.

[[felipe88]]

Bueno, el TryIcon es una mezcla de iconos que funcionan como lo haria un gif. En este documento (http://www.terawiki.clubdelphi.com/a..._al_limite.zip), hay un truco para minimizar tu aplicacion en la bandeja, espero te sirva...

Saludos

[[xEsk]]

Hola, no tiene ningun secreto

Pones un TTrayIcon, para mostrarlo y ocultarlo "TrayIcon1.Visible:=True;" o "TrayIcon1.Visible:=False;"

Le asignas un TPopupMenu al TTrayIcon, y listo.

Si quieres capturar los eventos, minimizar y todo esto, pues tienes el TApplicationEvents.

Saludos.

[Dado de baja]

La importancia del foro.

Fijaros que con estas dos respuestas, he logrado hacer lo que pretendía.

homenaje al foro, en los créditos pondré un homenaje al foro.

Gracias a los dos.

[[felipe88]]

Que bueno que encontraste la solucion...
Con gusto

[esocrates]

Empezado por xEsk

Hola, no tiene ningun secreto

Pones un TTrayIcon, para mostrarlo y ocultarlo "TrayIcon1.Visible:=True;" o "TrayIcon1.Visible:=False;"

Le asignas un TPopupMenu al TTrayIcon, y listo.

Si quieres capturar los eventos, minimizar y todo esto, pues tienes el TApplicationEvents.

Saludos.

Hola xEsk:
¿Podrías explicarlo con un ejemplo?
No logro resultado con esta indicación.
Muchas gracias
Saludos

[[xEsk]]

Empezado por esocrates

Hola xEsk:
¿Podrías explicarlo con un ejemplo?
No logro resultado con esta indicación.
Muchas gracias
Saludos

Faltaría mas!

Pon estos tres componentes: TTrayIcon, TPopupMenu y un TApplicationEvents.

Crea una nueva opción al TPopupMenu para poder programar la opción de "Restaurar".

Ahora asígnale este TPopupMenu al TTrayIcon.

El código a programar sería algo así:

Código Delphi [-]
// Al minimizar la aplicación (el evento OnMinimize del TApplicationEvents)
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  // ocultamos la ventana actual (la que tiene el TTrayIcon)
  Hide;
  // mostramos el TrayIcon
  TrayIcon1.Visible:=True;
end;

// Al seleccionar la opción restaurar del TPopupMenu (en mi caso se llama Mostrarformulario1)
procedure TForm1.Mostrarformulario1Click(Sender: TObject);
begin
  // volvemos a poner visible la ventana del TTrayIcon
  Show;
  // le decimos a la ventana que se ponga como "normal"
  WindowState:=wsNormal;
  // ocultamos el TrayIcon que ya no es necesario
  TrayIcon1.Visible:=False;
end;

Como ves, realmente no tenia ningún secreto! Espero que ahora si te funcione.

Saludos.

[esocrates]

Empezado por xEsk

Faltaría mas!

Pon estos tres componentes: TTrayIcon, TPopupMenu y un TApplicationEvents.

Crea una nueva opción al TPopupMenu para poder programar la opción de "Restaurar".

Ahora asígnale este TPopupMenu al TTrayIcon.

El código a programar sería algo así:

Código Delphi [-]
// Al minimizar la aplicación (el evento OnMinimize del TApplicationEvents)
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  // ocultamos la ventana actual (la que tiene el TTrayIcon)
  Hide;
  // mostramos el TrayIcon
  TrayIcon1.Visible:=True;
end;

// Al seleccionar la opción restaurar del TPopupMenu (en mi caso se llama Mostrarformulario1)
procedure TForm1.Mostrarformulario1Click(Sender: TObject);
begin
  // volvemos a poner visible la ventana del TTrayIcon
  Show;
  // le decimos a la ventana que se ponga como "normal"
  WindowState:=wsNormal;
  // ocultamos el TrayIcon que ya no es necesario
  TrayIcon1.Visible:=False;
end;

Como ves, realmente no tenia ningún secreto! Espero que ahora si te funcione.

Saludos.

Muchas gracias xEsk.
Funcionó con la única corrección de cambiar la propiedad visible del TrayIcon1 por Active
Un saludo y hasta pronto

[[FGarcia]]

Jejeje y en que pestaña esta el TrayIcon? NO lo encuentro!