Problem with TrayIcon
Posted: Fri Feb 15, 2019 3:58 am
When exit program loaded in Tray the icon does not disappear.
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:
On the quit program execute:
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()