Fechar todos Forms MDI Child
Sub Command1_Click()
Dim Frm As Form
For Each Frm In Forms
If Frm.Name <> Me.Name Then
‘fecha todos forms exceto o chamador (Pai-MDI Form)
Unload Frm
End If
Next Frm
End Sub
Posts Similares
Como Alterar a Cor de uma Linha no DBGrid com Condição no Delphi
O DBGrid no Delphi permite destacar visualmente registros importantes. Uma das formas de fazer isso é alterando a cor da…
Trabalhando com Metadados em HTML: A Tag Head
Trabalhando com Metadados em HTML: A Tag Head Aprenda sobre a tag <head> e como usar tags como <meta>, <link>,…
Compreendendo o Modelo de Caixa do CSS
Compreendendo o Modelo de Caixa do CSS O modelo de caixa do CSS é fundamental para entender como os elementos…
Como Verificar se um Arquivo Existe no Delphi
Em algumas aplicações, pode ser necessário verificar se um determinado arquivo está presente no sistema antes de prosseguir com uma…
Funções em JavaScript: O Guia Definitivo
Funções em JavaScript: O Guia Definitivo As funções são blocos de código reutilizáveis que executam tarefas específicas. Em JavaScript, entender…
Como Validar Formulários com JavaScript
Como Validar Formulários com JavaScript Aprenda a validar entradas de formulário usando JavaScript. Veja exemplos de verificação de campos obrigatórios,…