Desabilitar o "X" no dialog

[marcos.gurupi]

Caros, procurei aqui no forum mas por incrivel q pareca nao encontrei algo que fosse apenas desabilitar o botao fechar ("X") no dialog, eu quero q o usuario fique obrigado a usar o OK ou Cancelar. Obrigado.

[anacatacombs]

Se eu não me engano é no style da dialog.
Como vc está criando a dialog?

[esbasso]

INIT DIALOG <oDlg> ... ;
NOCLOSABLE

[marcos.gurupi]

Ana td bem? Bom eu uso assim:

Código: Selecionar todos

INIT DIALOG oForm CLIPPER NOEXIT NOEXITESC TITLE "Lancamento de Nota Fiscal.";
FONT oFont ;
ON INIT {||iif(Empresa->Regime="3",oAlicotaSN:Disable(),oAlicotaSN:Enable()),oBaseIcms1:Enable(),oVlrIcms1:Enable(),oBaseIcms2:Enable(),;
           oVlrIcms2:Enable(),INCITENS(),iif(iItens>1,oCalcAlt:Disable(),oCalcAlt:Enable()),objcfop:SetFocus()};
AT 0, 0 SIZE GetDesktopWidth()-80, GetDesktopHeight() - 65;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE +WS_CAPTION + WS_SYSMENU

O Basso eu tentei assim:

Código: Selecionar todos

INIT DIALOG oForm CLIPPER NOEXIT NOEXITESC NOCLOSABLE  TITLE "Lancamento de Nota Fiscal.";
FONT oFont ;
ON INIT {||iif(Empresa->Regime="3",oAlicotaSN:Disable(),oAlicotaSN:Enable()),oBaseIcms1:Enable(),oVlrIcms1:Enable(),oBaseIcms2:Enable(),;
           oVlrIcms2:Enable(),INCITENS(),iif(iItens>1,oCalcAlt:Disable(),oCalcAlt:Enable()),objcfop:SetFocus()};
AT 0, 0 SIZE GetDesktopWidth()-80, GetDesktopHeight() - 65;
STYLE DS_CENTER + WS_VISIBLE + WS_POPUP + WS_VISIBLE +WS_CAPTION + WS_SYSMENU

Mas nao deu certo.

[esbasso]

NOCLOSABLE é o correto para desabilitar o X da janela.
Tua LIB é atualizada?

[anacatacombs]

Faz tempo que eu não uso HWGUI, mas eu tentaria tirar o WS_SYSMENU

[marcos.gurupi]

Obrigado basso, bom eu uso a hwgui 2.17 acredito ser a mais atualizada.

Ana obrigado. Retirando o ...+ WS_SYSMENU deu certo era isso q queria.