TTrayIcon como usarlo ?

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

[esocrates]

Empezado por FGarcia

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

Está en las RXLib tools
Un saludo

[[FGarcia]]

Joder! y yo que creia era un control de delphi! ni hablar...

[Dado de baja]

xEsk me ha venido de perlas el ejemplo que has puesto.la TtrayIcon y TApplicationEvents en Delphi 2007 se encuentran en el grupo "Additional"

[[felipe88]]

Empezado por FGarcia

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

Que version de Delphi tienes...? creo que este esta de la 2006 en adelante, pero no te preocupes las rx poseen su propia version