TOTVSTEC

Árvore de páginas

Tempo aproximado para leitura: 1 minuto

Define um bloco de código que será executado sempre que a função SetKey() for chamada.

Sintaxe

SetKeyBlock( < bBloco > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

bBloco

bloco de código

Bloco de código que será executado.

X

 

Exemplos

User Function Exemplo()
  local lPassouBloco := .F.
  local bBloco := {|| lPassouBloco := .T.}
  local bBloco2 := {|| Conout("setkey ativado")}

  SetKeyBlock(bBloco)

  SetKey(VK_F12, bBloco2)
Return

Abrangência

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10

  • Sem rótulos