General information
Title:
Putting Foxpro in systray.....a 'HIDE WINDOW SCREEN Question
Hi...
I have sucessfully put my VFP 6.0 app in the system tray
using code I found here.
It's a server so it executes a sequence of events
on a timer...
Using the code I put the thing in the tray but the application stays visible.
So I just do a
HIDE WINDOW SCREEN
Command to get rid of the screen...
But if I do this the program just closes down...
I want it to keep executing....The timer...
SO I tried...
thisform.minimized=.t.
HIDE WINDOW SCREEN
read events
DO WHILE thisform.minimized=.t.
ENDDO
Then when I click on the icon in the tray
It calls a function that does:
***********************************
SHOW WINDOW SCREEN
if DelSysTrayIcon(1)
thisform.minimized=.f.
THISFORM.GOTOFOCUS()
endif
**********************************
This works fine but the program doesn't execut the timer
because the loop does nothing...
I tired various things but no luck
So the Million dollar question is:
What do I put in here:
DO WHILE thisform.minimized=.t.
ENDDO
So that the program executes the timer on the screen...
When the screen is hidden....
Any Ideas?
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only