Olá,

Estou com um problema, tenho uma aplicação que possui um form MDI, a apartir do MDI eu chamo um form MDIChild até aqui tudo bem, só que estou mudando meu sistema para classes, ou seja o form mdichild que é chamado agora a partir de uma classe, mas agora eu não posso configurar o form como mdichild pois dentro da classe não existe um form MDI. Alguém tem alguma idéia de como posso chamar um form MDIchild de uma classe a partir do MDI do projeto principal?

Abraços

Olha... eu tô um pouco confuso com o q vc quer mas vamos ver se entendi...

Pra resumir é assim: entendi q vc quer chamar um mdichild a partir de uma classe certo??

 

Bom, não sei se é essa sua dúvida mas a solução é vc fazer uma procedure (uma sub) q chama o form mdichild dentro da sua classe:

 

Public Sub Formcall()
Form2.Show
End Sub

 

no  MDIForm (mdiprincipal) vc faria assim:

 

Dim a As Class1

 

 

Private Sub Command1_Click()
a.Formcall 'chama o form mdichild a partir da classe
End Sub

 

 

Este é um exemplo simples... usei um botão mas vc pode usar um menu, bom ai vc sabe como partir daqui pra frente...

 

Desculpe se não é isso q vc queria, mas foi o q entendi.... tentei hehehe

 

qq dúvida é só postar

 

t+

 

 

Orlando,

Reveja seus conceitos de OOP...

Me parece ilogico vc chamar o form MDIChild dentro de uma classe... o proprio form é uma classe... e vc nao precisa encapsular ele em outra classe para adaptar seu sistema...

 

Qto ao q vc quer fazer, eu ja tentei (apenas pra testes) e nao consegui fazer naum... me parece que o MDIChild precisa existir no mesmo escopo do MDIForm... se vc encapsula o MDIChild na classe, ele deixa de existir no escopo do MDIForm...

 

Flw!

Obrigado pessoal pela ajuda, mas eu já achei uma solução, achei uma API que muda as propriedades de um form para mdichild em tempo de execução, para quem interessar aí vai o código, um grande abraço a todos.

 

'-- Inicio: API para chamar form MDIChild de uma dll
Const GWL_STYLE = -16
Const WS_CHILD = &H40000000
Const WS_EX_MDICHILD = &H40
Const GW_CHILD = 5

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

 

Public Sub ShowF(hwnd As Long, oFormChild As Object)

    Dim Estilo As Long
    Dim MDI As Long
   
    'Pega a janela filha do MDI (MDI client)
    MDI = GetWindow(hwnd, GW_CHILD)
   
    'Pega o estilo do form da DLL
    Estilo = GetWindowLong(oFormChild.hwnd, GWL_STYLE)
   
    'Coloca estilo WS_CHILD para que a janela seja filha do MDI
    'SetWindowLong oFormChild.hwnd, GWL_STYLE, (Estilo Or WS_CHILD Or WS_EX_MDICHILD)
    SetWindowLong oFormChild.hwnd, GWL_STYLE, Estilo
   
    'Coloca o form da DLL como filho do MDI
    SetParent oFormChild.hwnd, MDI
   
    oFormChild.Show

End Sub