What's I do wrong with TTimer() ?
Posted: Mon Apr 21, 2008 5:48 am
Dear all,
What did I do wrong with this code? Why TTimer() is not action anything?
oTimer:lActive is .T. but don't do anything.
Regards,
Dutch
What did I do wrong with this code? Why TTimer() is not action anything?
oTimer:lActive is .T. but don't do anything.
- Code: Select all Expand view
#include 'Fivewin.ch'
*----------------*
Function main
local oDlg, oTimer
DEFINE DIALOG oDlg FROM 0, 0 TO 300, 400 PIXEL
DEFINE TIMER oTimer OF oDlg INTERVAL 100 ACTION MsgInfo('Test')
ACTIVATE DIALOG oDlg ON PAINT (oTimer:Activate()) ;
VALID (oTimer:DeActivate())
return nil
Regards,
Dutch