TTrayIcon como usarlo ?

[[FGarcia]]

Bueno, baje e instale las Rx V2.7.7 y estoy tratando de usar el RxTrayIcon pero hay algo que no me funciona. La aplicacion la inicio minimizada (desde el IDE) y queda en la barra, si aparece el icono y funciona el menu de popup para restaurar pero no puedo volver a minimizar la aplicacion, jeje en el demo esta simple de usar pero no logro usarlo en mi aplicacion. ¿Sugerencias?

[Cecilio]

Me pasa igual.
Desde que uso WindowState. Para restaurar y que se va de nuevo tengo:

Código Delphi [-]
procedure Tform1.Restaurar;
begin
     Application.mainform.visible:=true;
     TrayIcon1.Visible:=true;
     Form1.WindowState:=wsNormal;
end;

No he probado a poner no visible TrayIcon, pero creo que no es de eso.

[esocrates]

Empezado por Cecilio

Me pasa igual.
Desde que uso WindowState. Para restaurar y que se va de nuevo tengo:

Código Delphi [-]
procedure Tform1.Restaurar;
begin
     Application.mainform.visible:=true;
     TrayIcon1.Visible:=true;
     Form1.WindowState:=wsNormal;
end;

No he probado a poner no visible TrayIcon, pero creo que no es de eso.

Prueba con esto en el evento click del PopUP .
Nota:1-La propiedad visible está equivocada. La correcta es active
2-No olvides adjudicar un ícono al RXTrayicon. Lo podés hacer desde el inspector de objetos.

Código Delphi [-]
procedure TForm1.Restaurar1Click(Sender: TObject);
begin
  Show;
  WindowState:=wsNormal;
  RXTrayIcon1.Active:=False;
end;

[Cecilio]

No uso las Rx, sino TtrayIcon. Este no lleva la propiedad Active sino Visible.

Saludos.

[Arsenio]

Yo en el procedimiento Restaurar (que se ejecuta con el doble click en el TrayIcon o con el popupMenu) hago unos pasos más, ya que se comportaba "extraño" cuando lo restauraba, por ejemplo no me permitía minimizar otra vez la ventana si primero no hacía "foco" en la ventana:

Código Delphi [-]
procedure TFormCustom.Restaurar1Click(Sender: TObject);
begin
  RestaurarVentana;
end;

procedure TFormCustom.TrayIcon1DblClick(Sender: TObject);
begin
  RestaurarVentana;
end;

procedure TFormCustom.RestaurarVentana;
begin
  Show;
  WindowState := wsNormal;
  TrayIcon1.Visible := False;
  //estas dos lineas las agrego para que le de foco a la ventana y quede arriba.
  Application.BringToFront;
  Application.Restore;
end;

Y en vez de usar el TApplicationEvents, para no agregar una unit más, uso directamente:

Código Delphi [-]
//Asigno evento cuando minimiza la aplicación
Application.OnMinimize := MinimizarAplicacion;

procedure TFormCustom.MinimizarAplicacion(Sender: TObject);
begin
  Self.Hide;
  TrayIcon1.Visible := True;
end;

Esto es con el Delphi XE, se que los anteriores tenían algunos problemas con este componente.

[esocrates]

Empezado por FGarcia

Bueno, baje e instale las Rx V2.7.7 y estoy tratando de usar el RxTrayIcon pero hay algo que no me funciona. La aplicacion la inicio minimizada (desde el IDE) y queda en la barra, si aparece el icono y funciona el menu de popup para restaurar pero no puedo volver a minimizar la aplicacion, jeje en el demo esta simple de usar pero no logro usarlo en mi aplicacion. ¿Sugerencias?

Muestra el código que estás usando para darle un vistazo
Un saludo