Problema com TaskBar

[shark]

Quando fecho um programa carregado na Trayr o ícone não desaparece.

somente desaparece quando passo o mouse por cima.

alguém pode me dar uma sugestão do que fazer para remover o ícone da Tray quando eu fechar o programa?

Crio o ícone na Tray da com a classe TTrayicon com o seguinte código:

Code: Select all

oTray := TTrayIcon():New( oWndTray, oTrayIcon, "Sistema Gerenciador" )

oTray:bLButtonUp  := { | nRow, nCol | TaskMenu( nRow, nCol - 5 ) }
oTray:bRButtonUp  := { | nRow, nCol | TaskMenu( nRow, nCol - 5 ) }

oTray:oNotifyIcon := oTrayIcon
 

Encerro o programa com o seguinte código:

Code: Select all

      oTray:End()

      oTrayIcon:End()

      oTrayTimer:End()

      oWndTray:End()

 

Agradeço antecipadamente...