import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto que executa um bloco de código respeitando o temporizador, atrelado a um componente da interface visual.
#include "TOTVS.CH"
User Function TTimer()
DEFINE DIALOG oDlg TITLE "Exemplo TTimer" FROM 180,180 TO 550,700 PIXEL
nMilissegundos := 2000 // Disparo será de 2 em 2 segundos
oTimer := TTimer():New(nMilissegundos, {|| alert(time()) }, oDlg )
oTimer:Activate()
ACTIVATE DIALOG oDlg CENTERED
Return
|
