Al� Lairton,
Ainda n�o testei mas seguindo a l�gica desta fun��o acredito que funciona.
Muito obrigado.
Obrigado tb para o Denilson Santos (valeu a inten��o) :-)
>From: "Lairton N de Almeida Jr" <[EMAIL PROTECTED]>
>Reply-To: [EMAIL PROTECTED]
>To: <[EMAIL PROTECTED]>
>Subject: Re: [sqlwin] Form aberto
>Date: Mon, 14 Oct 2002 08:24:23 -0300
>
>
>Ol� Francisco Frank,
>
>N�o sei se existe uma fun��o que fa�a isso, mas fiz uma aqui.
>D� uma olhadinha ...
>
>no SAM_Close do MDI verifiquo se h� alguma janela aberta ....
>
>MDI Window: mdiPRINCIPAL
> Message Actions
> On SAM_Close
> If NOT VerificaSePodeFechar( )
> Return FALSE
>
>Se a fun��o VerificaSePodeFechar( ) retornar FALSE significa que existe alguma janela aberta. Ent�o retornamos FALSE para que o MDI n�o seja fechado.
>
>Agora olha a c�digo da fun��o VerificaSePodeFechar( )
>
>Function: VerificaSePodeFechar
> Returns
> Boolean:
> 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!", MB_Ok )
> Return FALSE
> Return TRUE
>
>Pega o handle do primeiro form window ou table window que esteja aberto e que seja filho do MDI.
>Pega o t�tulo da janela e mostra a mensagem informando que ela precisa ser fechada antes de sair.
>
>Veja se isso te ajuda.
>
>um abra�o
>Lairton N de Almeida Jr.
>[EMAIL PROTECTED]
>www.centuraexplorer.com
>
>
>
> ----- Original Message -----
> From: FRANCISCO FRANK
> To: [EMAIL PROTECTED]
> Sent: Monday, October 14, 2002 6:10 AM
> Subject: [sqlwin] Form aberto
>
>
> Al� galeira!
> Meu objectivo � fazer com que o usu�rio feche o programa apenas quando todos os forms estiverem fechado - Excepto o mdi � claro.
> Existe alguma fun��o que verifica se ha algum form aberto e retorne o nome do form?
>
> Um abra�o
> Francisco Frank
>
>
>------------------------------------------------------------------------------
> MSN Photos � a maneira mais f�cil e pr�tica de editar e compartilhar sua fotos: Clique aqui
> ============================================== 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) ==============================================
==============================================
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)
==============================================
