TIRAR BOTAO FECHA FORM DE MDI CHID
Ola pessoal preciso de uma dica meu sistemas usa mdi_form e mdi_chid, eu queria retirar o boato fechar do mdi_child eu tentei este codigo que achei na internet
Private Declare Function DeleteMenu Lib [Ô]user32[Ô] (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib [Ô]user32[Ô] (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
[ô]// desabilita o botão fechar
RemoveMenus
End Sub
Private Sub RemoveMenus()
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub
mas nao funciona, eu tb uso Skin nos forms
desde de ja abradeco a ajuda
Private Declare Function DeleteMenu Lib [Ô]user32[Ô] (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMenu Lib [Ô]user32[Ô] (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Sub Form_Load()
[ô]// desabilita o botão fechar
RemoveMenus
End Sub
Private Sub RemoveMenus()
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, False)
DeleteMenu hMenu, 6, MF_BYPOSITION
End Sub
mas nao funciona, eu tb uso Skin nos forms
desde de ja abradeco a ajuda
Vc usa o ActiveSkin?
Tive que tirar o skin para essa mesma função funcionar.
Tive que tirar o skin para essa mesma função funcionar.
O MSMjudas serio msm mas, nao existe outra opcao, desabilitar o botao quem sabe
Ola NLsolucoesmuito obrigado, o activeksin nao deixa estas funcoes funcionar, eu testei uma so funciona no form sem skin.
Esse ActiveSkin é o famoso skin [Ô]bonitinho mas ordinário[Ô]
Fica legal o layout, mas F*** com alguns eventos principalmente KeyDown, KeyPress, KeyPreview e algumas funções como essa de desabilitar o botão fechar.
Só utilizo ele em algumas telas bem simples, mas já estou pensando em tirar tudo e trocar por algum outro skin.
Fica legal o layout, mas F*** com alguns eventos principalmente KeyDown, KeyPress, KeyPreview e algumas funções como essa de desabilitar o botão fechar.
Só utilizo ele em algumas telas bem simples, mas já estou pensando em tirar tudo e trocar por algum outro skin.
Ola Menudo Quero agradecer pelas ajudas, eu teste este codigo acima
Cancel = True [ô]se verdadeiro não fecha, se falso fecha pelo X.
funcionou mas no form eu tenho um codigo no unload
unload me
este comando temabem fui destivado justamente esta esta no cmdsair do msm form
veja
Private Sub cmdsair_Click()
cnn.Close
Unload Me
libera_menu
mdicentral.Stb.Panels(4).Text = [Ô]Sistema em espera[Ô]
End Sub
sendo assimele bloqueia o unload me ai vc clica mais uma ves no botao sair ai da erro no cnn.close que ja esta fechado, eo form NAO SAI A TELA
Cancel = True [ô]se verdadeiro não fecha, se falso fecha pelo X.
funcionou mas no form eu tenho um codigo no unload
unload me
este comando temabem fui destivado justamente esta esta no cmdsair do msm form
veja
Private Sub cmdsair_Click()
cnn.Close
Unload Me
libera_menu
mdicentral.Stb.Panels(4).Text = [Ô]Sistema em espera[Ô]
End Sub
sendo assimele bloqueia o unload me ai vc clica mais uma ves no botao sair ai da erro no cnn.close que ja esta fechado, eo form NAO SAI A TELA
Tópico encerrado , respostas não são mais permitidas