Histórico da Página

Função: SetKeyBlock

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

bloco de código

Indica o bloco

Bloco de código que será executado

quando a função SetKey() for chamada.

Retorno

Nil (Nulo)

Observações

Exemplos

// Cria uma janela sem título definidoDEFINE DIALOG oDlg TITLE "" FROM 180,180 TO 550,700 PIXELSetKeyBlock({|x| Alert(x) })ACTIVATE DIALOG oDlg CENTERED

.

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