Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
|
Pagetitle |
---|
...
...
|
...
|
Cria
...
um
...
objeto
...
que
...
executa
...
um
...
bloco
...
de
...
código
...
respeitando
...
o
...
temporizador,
...
atrelado
...
a
...
um
...
componente
...
da
...
interface
...
visual.
...
Hierarquia
...
- TSrvObject
- TTimer
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | |||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||
NewMétodo construtor da classe.TTimer(): New ( [ nInterval], [ bAction], [ oWnd] ) --> oObjeto
Observações (*) O Intervalo mínimo considerado é de 1000 milissegundos ( 1 segundo ) entre as chamadas. Caso seja informado um valor menor, serão considerados 1000 milissegundos. (**) O Bloco de código pode ou não interagir com a interface, e pode ter um tempo de execução variável – depende do que exatamente será executado. Caso o tempo especificado no objeto Timer deva ser considerado como o intervalo entre as execuções e não o intervalo entre os disparos, o próprio bloco de código deve se encarregar de suspender o timer ao ser executado, e reabilitar o timer ao término da execução. (***) Mesmo sendo o parâmetro oWnd opcional, caso o mesmo não seja informado ou seja informado como NIL, o objeto do tTIMER() é criado, mas não dispara / executa o evento. oObjeto
oTimer := TTimer():New(2000, {|| alert(time()) }, oDlg ) ActivateInicia a execução do timer.TTimer(): Activate ( ) --> oTimer:Activate() DeActivateSuspende a execução do timer.TTimer(): DeActivate ( ) --> oTimer:DeActivate()
#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 CENTERED Return Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |
Resultado do Exemplo