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