ignorar tecla ESC

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

ignorar tecla ESC

Mensagem por paiva_dbdc »

BOa tarde.
em um grupo de gets

get a
get b
getc

READ

tem como ignorar o ESC fazer ele NAO ignorar os get ?

se não tiver jeito teria que fazer um
while e testar se deu esc voltar para o inicio rs

se pudesse star alguma coisa que anulasse o ESC seria o ideal

somente para uma rotina
Fernando queiroz
Usuário Nível 4
Usuário Nível 4
Mensagens: 779
Registrado em: 13 Nov 2014 00:41
Localização: Porto Alegre/RS

ignorar tecla ESC

Mensagem por Fernando queiroz »

tente com uma janela assim

INIT DIALOG oDlg TITLE "VENDAS" ;
ICON HIcon():Addresource('SGC_ICON') ;
AT 0, 0 SIZE 1360,768 CLIPPER NOEXIT NOEXITESC NOCLOSABLE ;

e coloquei uma tecla ou um buttom para sair
HARBOUR 3.2, HWGUI 2.23 B3, SEFAZCLASS, PDFClass, ADO + MariaDB/MySQL, RMChart
paiva_dbdc
Usuário Nível 3
Usuário Nível 3
Mensagens: 342
Registrado em: 12 Nov 2012 09:58
Localização: uberlandia mg

ignorar tecla ESC

Mensagem por paiva_dbdc »

BOa


é texto mesmo

coloquei dentro de um While rs funcionou +++ nao e´o ideal

o ideal seria setar alguma coisa a a classe READ ignorasse o esc

PAiva
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

ignorar tecla ESC

Mensagem por JoséQuintas »

Teste:

SET ESCAPE OFF
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder