Program quit but, the icon on Tray, only disappear when I mouse over.
can anyone give me a hint of what to do to remove the Tray icon when I close the program?
I create the icon in Tray da with the class TTrayicon with the following code:
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
Code: Select all
oTray:End()
oTrayIcon:End()
oTrayTimer:End()
oWndTray:End()