VASCON Posted March 20, 2004 Report Share Posted March 20, 2004 OLà PESSOAL Na caixa de diálogo, em seu canto superior, temos: "?" e o "x", ou seja, AJUDA E FECHAR. Qual o comando para desativar o comando de FECHAR "x" MELHOR EXPLICANDO: Quero que o fechamento da caixa de diálogo seja feito exclusivamente através de botões. OBRIGADO NILSON Quote Link to comment Share on other sites More sharing options...
karinha Posted March 20, 2004 Report Share Posted March 20, 2004 // Para quem usa @Say, é assim... DEFINE DIALOG oDlg FROM nLinhaDialog, nColunaDialog ; TO nAlturaDialog, nLarguraDialog OF oWnd ; TITLE cTitle ; PIXEL ; FONT oFnt ; STYLE nOR( DS_MODALFRAME ) // Este Comando, Desliga Aquela ? Chata da Dialog que Pede o Help. oDlg:lHelpIcon := .F. @ nLinhaButton, nColunaButton ; BUTTON oSaida ; PROMPT "&Sair" OF oDlg ; SIZE 35,12 ; PIXEL ; ACTION( oDlg:End() ) CANCEL oSaida:cToolTip = "Saida(Exit)" João Santos São Paulo-Brasil (11) 3106-2832 a Noite karinhannah@ubbi.com.br Quote Link to comment Share on other sites More sharing options...
eajunior Posted March 22, 2004 Report Share Posted March 22, 2004 Ola Vascon, o ´X´ não pode ser retirado da janela mas voce pode utilizar um VALID para obrigar o usuario para clicar um botao para sair. DEFINE DIALOG oDlg RESOURCE "Sua Janela" FONT oWnd:Font lEnd := False DEFINE BUTTON ID 300 OF oDlg ACTION( lEnd := .T., oDlg:End() ) ACTIVATE DIALOG oDlg CENTERED VALID lEnd se trabalha com @ say pode fazer a mesma coisa Elias Abrão Júnior Fone : (0**19) 3825-0812 Indaiatuba - SP eajunior.fw@terra.com.br Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.