Pular para o conteúdo
Início » Advpl TerEsc

Advpl TerEsc

    Tipo: Microterminal
    Verifica se a ultima tecla pressionada no microterminal foi a DEL (consideramos como equivalente a <ESC> no
    teclado normal).
    Sintaxe
    TerEsc()
    Retorna
    .T. se a ultima tecla pressionada foi <DEL> ou .F. se não foi
    Exemplo
    TerCls()
    While .T.
    cNome := Space(10)
    TerSay(00,00,"Nome:")
    TerGetRead(01,07,@cNome,"XXXXXXXXXX")
    If TerEsc()
    Exit
    EndIf
    EndDo
    TerCls()
    TerSay(01,00,"Finalizando…")