BLOQUEAR ALT+F4

[JAIR RANGEL]

Olá, Pessoal !

Alguem sabe como inibir o fechamento da janela com a combinação de teclas ALT+F4 ?
Utilizando HMG-IDE. Os forms são montados com a IDE.

Pesquisando achei no exemplo da HMG uma dica utilizando o ON KEY do form. Porém, não existe este EVENTO nos forms gerados pela MiniGUI.

Desde já um grande obrigado pela atenção !

[Pablo César]

Se a sua intenção é que o usuário feche a janela em momentos que não deveria. Sugiro que você aplique uma função no evento ON INTERACTIVECLOSE de cada janela.

Código: Selecionar todos

#include "hmg.ch"

Function Main
	DEFINE WINDOW Win_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE 'Hello World!' ;
		MAIN ;
		ON INTERACTIVECLOSE MsgYesNo ('Are You Sure ?')
	END WINDOW
	ACTIVATE WINDOW Win_1
Return

[exusuariodehmg]

On key escape of form_1 action "" (ou nil)
On key altf4 of form_1 action "" (ou nil)

Se quiser vc até pode colocar nas action uma função, procedure, etc... que vc deseje ou precise
e retire se for possivel os controles de janelas se não souber como maneja-los (ex: [x]) com nosysmenu

E por ai vai....

[JAIR RANGEL]

Com o oninterativeclose não funcionou como eu queria.
Porém, com "on key alt+f4 form_1 action MyFunction()" ficou show. Perfeito.

Obrigado pessoal ! :{

[Pablo César]

Acho que você irá precisar na verdade uma combinação das duas indicações: ON INTERACTIVECLOSE e ON KEY ALT+F4 form_1 ACTION MyFunction(). Aliás, você poderia implementar no ON INTERACTIVECLOSE colocando a função MyFunction mas que atendesse as duas situações.

[JAIR RANGEL]

Olá, Pablo !

Entendo sua colocação. Mas como mencionei, a utilização do ON KEY ficou perfeito. Inibe que o usuário feche a janela (form) com a combinação de teclas: ALT+F4
Vou inserir dentro de todos os prgs esta linha de comando. A minha confusão incial é que fiquei procurando o ON KEY como propriedade do form. Mas tarde fui perceber que se trata do arquivo i_keybd.ch.

vlw, pessoal ! Um clipabraço !

[MSDN]

Prezado,

Para resolver a questão de inibir o fechamento de qualquer janela de sua aplicação pela combinação de teclas ALT F4, no inicio do prg principal escreva :

set interactiveclose off

pronto, resolvido.

Abraços