Form frmPropertyGrid is created (in DockingPanes attach event) as a new instance. It seems you can't have a reference to that form with MDI. You can make frmPropertyGrid public but you get an error: Only one MDI form allowed. 

 

 

This will work with MDI, just test it and:

I don't know how to get around this in MDI... I have simular code with SDI and I can make calls in other forms. I don't know why I can't with MDI, maybe you know..... why?

 

 

 

I have created a public function that updates de property grid...

 

This code is in frmpropertygrid

 

Public Sub CarregaGrelhaDados(ByVal strNomeTabela As String, Optional ByVal strDados As Variant)

Dim category As PropertyGridItem
Dim item As PropertyGridItem

 

  frmPropertyGrid.wndPropertyGrid.ToolTipContext.Style = xtpToolTipLuna
  frmPropertyGrid.wndPropertyGrid.ShowInplaceButtonsAlways = False
  frmPropertyGrid.wndPropertyGrid.Categories.Clear
  
  Set category = frmPropertyGrid.wndPropertyGrid.AddCategory(objLangDef(51).strString)
  For i = 1 To UBound(objTipoDados)
  arrTipoDados = Split(objTipoDados(i), "|")
  arrToolTips = Split(objToolTips(i), "|")
  Select Case arrTipoDados(2)
    Case "bigint": IntTipo = PropertyItemNumber
    Case "int": IntTipo = PropertyItemNumber
    Case "varchar": IntTipo = PropertyItemString
  End Select
  If IntTipo = PropertyItemNumber Then
    strAux = arrTipoDados(1)
    Set item = category.AddChildItem(PropertyItemNumber, strAux, 10)
  Else
    strAux = arrTipoDados(1)
    Set item = category.AddChildItem(PropertyItemString, strAux, "100; 100")
  End If
  If arrTipoDados(4) = "0" Then
    item.ReadOnly = True
  Else
    item.ReadOnly = False
  End If
  item.ToolTip = arrToolTips(1)
  item.Expanded = True
  category.Expanded = True
  Next i

End Function

 

Thanks!

 

 

 

Can you show me what you do? Or just upload test project so I can look into it.

 

Thanks