Re: [sqlwin] Form aberto

[Lairton N de Almeida Jr]

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) ==============================================