Clipper On Line • Ver Tópico - Simulando uma HotKey

Simulando uma HotKey

Projeto HwGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Simulando uma HotKey

Mensagempor asimoes » 18 Nov 2019 13:43

Simulando uma hotkey ALT 423

STATIC FUNCTION VerTecla( oDlg, lAcessoEspecial ) 
LOCAL nKey, cKey, nSec

   oDlg:oTimerTecla:End()
     
   IF hwg_LastKey() = 18 //alt
      nKey := 0
      cKey := ""
      nSec := Seconds()     
      DO WHILE nKey != 27
         nKey := InkeyGui(1)   
         IF nKey != 18 .AND. nKey >= 96 .AND. nKey <= 105 // faixa 0..9   
            cKey += Hb_NtoS( nKey )
         ENDIF
         IF cKey == "1009899" //Senha 423 para desabilitar o derruba//
            lAcessoEspecial := .T.
            nKey := 27
         ELSE
            IF Len( cKey ) > 7
               cKey := ""
            ENDIF
         ENDIF
         IF ( Seconds() - nSec ) > 10
            EXIT
         ENDIF   
         hwg_DoEvents()
      ENDDO
   ENDIF
   
   SET TIMER oTimerTecla of oDlg VALUE 100 ACTION {|| VerTecla( oDlg, @lAcessoEspecial )  }
   
RETURN Nil
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes



Retornar para HwGui

Quem está online

Usuários vendo este fórum: Bing [Bot] e 5 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro