Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
Portuguese | |||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Classe: TTimerCria um objeto que executa um bloco de código respeitando o temporizador, atrelado a um componente da interface visual. 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 )
#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 Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
|