TIMER COM DIALOG NOMODAL

[pece]

Utilizo uma DIALOG NOMODAL e preciso de um TIMER, mas quando defino NOMODAL, o TIMER não funciona.

DEFINE DIALOG oDlg RESOURCE 'SV_EXEMPLO' TITLE "EXEMPLO NOMODAL COM TIMER"

:

ACTIVATE DIALOG oDlg CENTER NOMODAL ON INIT (oDlg:lHelpIcon := .F., IniciaTimer())
 

STATIC FUNCTION IniciaTimer()

   IF oTimerLocal == nil
      DEFINE TIMER oTimerLocal        ;
             INTERVAL 7500            ;
             ACTION ReceberMensagem() ;
             OF oDlg

      oTimerLocal:Activate()
   ENDIF

RETURN

Alguém pode ajudar?

[Jmsilva]

Tente assim:

.

.

oDlg:lHelpIcon:=.f.

ACTIVATE DIALOG oDlg CENTER NOMODAL 

IniciaTimer()

Return Nil
 

STATIC FUNCTION IniciaTimer()

   IF oTimerLocal == nil
      DEFINE TIMER oTimerLocal        ;
             INTERVAL 7500            ;
             ACTION ReceberMensagem() ;
             OF oDlg

      oTimerLocal:Activate()
   ENDIF