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