Pular para o conteúdo principal

Postagem em destaque

BlackTDN :: LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código

_Créditos das imagens: ChatGPT **Título:** LeetCode 23: Mesclando K Listas Ordenadas com Harbour/xBase e Reutilização de Código **Introdução** Olá, entusiastas de Harbour/xBase e desafios de programação! Depois de explorarmos como mesclar duas listas ordenadas no [nosso post sobre o LeetCode 21](https://www.blacktdn.com.br/2025/03/blacktdn-leetcode-21-merge-two-sorted.html), vamos dar um passo adiante e enfrentar um problema um pouco mais complexo: o LeetCode 23 - Merge K Sorted Lists. Neste artigo, vamos desvendar uma implementação em Harbour/xBase para este desafio, demonstrando como podemos inteligentemente reutilizar a solução que já construímos para o problema 21. Veremos como a modularidade e a construção sobre soluções anteriores podem simplificar problemas mais complexos. **O Problema: LeetCode 23 - Merge K Sorted Lists** O desafio é o seguinte: dado um array (`aLists` em nossa implementação) contendo `k` listas encadeadas, onde cada lista já está ordenada em ordem cres...

Fwd: Tecla ESC (VK_ESCAPE) em Advpl

Boa tarde Naldo!
Desculpe-me por invadir seu e-mail, sou seu fã no site BlackTDN e sempre estou por lá para novo aprendizado, realmente você é um dos papas do ADVPL no Brasil.
Se possível, gostaria de uma opinião sua quanto a um pequeno problema que estou encontrando por aqui. Temos em alguns clientes sistema de chão de fábrica, desenvolvidos todos em advpl e que funcionam perfeitamente, ah não ser pela bendita tecla ESC, ou seja, como as estações são burras, funcionam apenas com pendrive com SO Ubuntu, a máquina liga, carrega o programa e desliga quando ele é abortado, o problema está quando o usuário está no main menu da rotina e tecla ESC, a rotina é abortada e a máquina desliga....
Tentei de todas as formas o  tratamento da tecla com SetKey, como faço com os F1's da vida, mas sem sucesso, o ESC não respeita a condição e é executado.
Você saberia me orientar quanto a isso ? Como posso bloquear a tecla ESC ?
Obrigado pela atenção, novamente desculpe-me pela invasão!
Parabéns pelo site, a comunidade ADVPL do Brasil agradece a expert's como você.
Abraço ! 
Solução:

Existe sim uma forma de desabilitar a tecla ESC. Mas ela só desabilita para rotina customizada ou rotinas padrões que possuam Ponto de Entrada logo após a montagem do "DIALOG". Existe, na classe "TDialog" ou "TWindow", a Propriedade lEscClose que se tiver o valor alterado de .T. para .F. desabilita o fechamento da janela ao se pressionar a tecla ESC. Exemplo

fragmento: oDlg:lEscClose := .F. //Nao permite sair ao se pressionar a tecla ESC.

[]s
иαldσ dj

Comentários

  1. Naldo, eu estou precisando de algo totalmente diferente mas que tem a ver com a tecla ESC. Eu preciso executar uma função se a tecla ESC for pressionada para fechar a janela. Existe algum tratamento para este evento?

    Valeu

    ResponderExcluir
  2. Ae Naldo! Essa dica me ajudou hein! Black TDN sempre ajudando heheh Obs: só não consegui ver nada no link "Exemplo"

    ResponderExcluir
  3. Obrigado, Naldo. 2º vez que salva minha pele com uma solução simples.

    ResponderExcluir

Postar um comentário

Postagens mais visitadas