topic-2225

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

TIMER & DIALOG no me funcionan.
Posted: Thu Mar 16, 2006 08:50 AM

Estimados,

Ejecuto este código (indico que existe en un .res dialog_1) y no me funciona el timer, si lo hago con un WINDOWS en vez de un DIALOG funciona.

Code: Select all Collapse

#Include "Fivewin.Ch"


FUNCTION Main()

   LOCAL oDlg, oTimer

   DEFINE DIALOG oDlg RESOURCE "DIALOG_1"

   Define Timer oTimer Interval 900 Action MsgInfo("Activado") OF oDlg

      Activate Timer oTimer

   ACTIVATE DIALOG oDlg

   oTimer:End()

RETURN (NIL)

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

TIMER & DIALOG no me funcionan.
Posted: Thu Mar 16, 2006 09:05 AM

Gustavo,

El handle del diálogo ha de existir. Así funciona:

Code: Select all Collapse

#Include "Fivewin.Ch" 

static oTimer

FUNCTION Main() 

   LOCAL oDlg

   DEFINE DIALOG oDlg

   ACTIVATE DIALOG oDlg ;
      ON INIT BuildTimer( oDlg )

   oTimer:End() 

RETURN (NIL)

function BuildTimer( oDlg )

   Define Timer oTimer Interval 900 Action MsgInfo("Activado") OF oDlg 

   Activate Timer oTimer 
   
return nil

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion