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