Ver Mensaje Individual
  #7  
Antiguo 25-06-2008
Avatar de xEsk
[xEsk] xEsk is offline
Miembro Premium
 
Registrado: Feb 2006
Posts: 449
Reputación: 13
xEsk Va por buen camino
Cita:
Empezado por esocrates Ver Mensaje
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.
Responder Con Cita