MDI BLOQUEAR MAX BUTTON
Bom dia pessoal
Gostaria de saber se ha alguma função que bloqueia o BOTÃO de MAXIMIZAR de um FORMAULÃRIO MDIChild
Não gostaria que meu cliente diminuisse a tela apenas fechasse e minimizasse
Obrigado
Gostaria de saber se ha alguma função que bloqueia o BOTÃO de MAXIMIZAR de um FORMAULÃRIO MDIChild
Não gostaria que meu cliente diminuisse a tela apenas fechasse e minimizasse
Obrigado
filman seguinte
eu faço uma gamb
veja como faço no evento rezise do form
Private Sub MDIForm_Resize()
If Me.WindowState <> 1 Then
Me.WindowState = 2
End If
End Sub
eu faço uma gamb
veja como faço no evento rezise do form
Private Sub MDIForm_Resize()
If Me.WindowState <> 1 Then
Me.WindowState = 2
End If
End Sub
Deu certo mais existe alguma outra forma
Obrigado
Obrigado
Pode até ser mais como eu faria
obrigado
obrigado
Modifique a propriedade MAXBUTTON no form CHILD, para (TRUE)!
Meu amigo não quero habilitar e sim desabilitar
mais no MDIForm e FORM convertido para MDIChild = True
Obrigado
mais no MDIForm e FORM convertido para MDIChild = True
Obrigado
Coloque isso em um módulo:
[txt-color=#0000f0]
[ô] DESABILITAR O BOTÃO FECHAR DOS FORMS
Declare Function DeleteMenu Lib [Ô]User32[Ô] (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMenu Lib [Ô]User32[Ô] (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Sub RemoveMenus()
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub
[/txt-color]
No Load do form:
Private Sub MDIForm_Load()
RemoveMenus
End Sub
[txt-color=#0000f0]
[ô] DESABILITAR O BOTÃO FECHAR DOS FORMS
Declare Function DeleteMenu Lib [Ô]User32[Ô] (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMenu Lib [Ô]User32[Ô] (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Sub RemoveMenus()
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub
[/txt-color]
No Load do form:
Private Sub MDIForm_Load()
RemoveMenus
End Sub
Nenhum dessas alternativa deram certo
Espero exista alguma outra forma obrigado
Espero exista alguma outra forma obrigado
O FILMAN é muito simples, modifique a propriedade MAXBUTTON no form CHILD, para (FALSE)!
Não existe essa opção
Porque não é um FORM com MdiChild ativado
O FORM que eu digo é o FORM MDI e ele não tem essa opção por isso deveria ser via API ou na GAMBI como diz o nosso amigo ACG1574
só que da FORMA que o ACG1574 diz o MDI ele Restaurap/ baixo e volta ao normal gostaria que esse botão nem existisse no momento
Obrigado
Porque não é um FORM com MdiChild ativado
O FORM que eu digo é o FORM MDI e ele não tem essa opção por isso deveria ser via API ou na GAMBI como diz o nosso amigo ACG1574
só que da FORMA que o ACG1574 diz o MDI ele Restaurap/ baixo e volta ao normal gostaria que esse botão nem existisse no momento
Obrigado
Tópico encerrado , respostas não são mais permitidas