|
Osvaldo,
se ainda n�o resolveu seu problema, eu uso esta solu��o:
A fun��o � global e � chamada no
SAM_CLOSE do MDI porque os formul�rios est�o todos dentro do MDI.
De o nome que achares melhor para a fun��o
Function: VerificaSePodeFechar
Description:
Returns
Parameters
Static Variables
Local variables
Window Handle: hWndWindow
String: sTituloJanela
Actions
Set hWndWindow=SalGetFirstChild( hWndMDI, TYPE_FormWindow|TYPE_TableWindow )
If hWndWindow
Call SalGetWindowText( hWndWindow,sTituloJanela , 100 )
Call SalMessageBox( "Voc� precisa fechar a janela
" ||SalStrTrimX( sTituloJanela )||"
para poder sair.", "Ops! Sair do programa", MB_IconStop|MB_Ok )
Return FALSE
Return TRUE
*************************************
MDI
On SAM_Close
If Not VerificaSePodeFechar( )
Return FALSE
-------Mensagem original-------
Data: 03/03/05 13:15:44
Assunto: Re: [sqlwin] check janelas ativas no fechamento da MDI
Osvaldo,
Segue anexo um exemplo bem simples que funciona.
Sds,
Erasmo
--
|
|
Erasmo Bispo de Oliveira Junior
Gerente de Pesquisa e Desenvolvimento
|
Osvaldo wrote:
Ola pessoal tudo bem?
Eu estou com um problema, no momento em que a Janela Principal do meu
Programa e fechada, no caso sendo fechada clickando no [X] do windows, eu
preciso verificar se existe alguma janela ainda aberta e enviar um SAM_Close
para as janelas ativas , para serem feita as valida��es de cada janela antes
de ser fechada, eu fiz uma fun��o como a de baixo
!!CB!! 278
Function: fFechaJanelasAtivas
Description:
Returns
Parameters
Static Variables
Local variables
File Handle: hWndChild
Actions
Set hWndChild = SalGetFirstChild( hWndMainWindow, TYPE_FormWindow )
While hWndChild !=hWndNULL
Call SalSendMsg( hWndChild, SAM_Close, 0, 0 )
Set hWndChild = SalGetNextChild( hWndChild, TYPE_FormWindow )
Return TRUE
e usei esta fun��o no Sam_Close da janela principal mas neste momento eu
acho q as outras janelas ja foram destruidas, em q momento eu devo usar esta
fun��o, a solu��o que eu estou tentando nao esta funcionando.
==============================================
Lista de Centura SQLWindows
Administrador : [EMAIL PROTECTED]
[ http://www.centuraexplorer.com ]
Para sair desta lista mande mensagem para:
[EMAIL PROTECTED] sem nada no Subject e
com o comando a seguir no corpo da msg:
"unsubscribe sqlwin" (sem as aspas)
==============================================
| 