Can't edit controls in docked pane

Hi,

I am hoping someone can tell me what I'm doing wrong here ...

I am using v12 of the docking pane control. I am loading a form thus ...

    With DockingPane1
        Set pneSchema = .CreatePane(0, Me.ScaleWidth * 0.2, Me.ScaleHeight, DockLeftOf, Nothing)
        pneSchema.Options = PaneNoCaption
        Set frmSchema = New frmDatabaseSchema
        pneSchema.SetHandle frmSchema.hwnd

        Connect Me 'this makes a connection to a database
        If frmConnect.Cancelled Then
            Unload Me
        End If
    

        ReDim frmQuery(3)
        Set frmQuery(1) = New frmDatabaseQuery
        Set frmQuery(2) = New frmDatabaseQuery
        Set frmQuery(3) = New frmDatabaseQuery
    
        .PaintManager.ShowCaption = False
    
        Set qry1 = .CreatePane(1, Me.ScaleWidth * 0.8, Me.ScaleHeight, DockRightOf, pneSchema)
        qry1.SetHandle frmQuery(1).hwnd
        qry1.Title = "Untitled Query 1"
        Set frmQuery(1).Connection = mcnSql
        qry1.Enabled = PaneEnabled
        frmQuery(1).sql = "SELECT * FROM tblentities"
       
        Set qry2 = .CreatePane(2, Me.ScaleWidth * 0.8, Me.ScaleHeight, DockRightOf, qry1)
        qry2.SetHandle frmQuery(2).hwnd
        qry2.Title = "Untitled Query 2"
        Set frmQuery(2).Connection = mcnSql

        Set qry3 = .CreatePane(3, Me.ScaleWidth * 0.8, Me.ScaleHeight, DockRightOf, qry1)
        Set frmQuery(2) = New frmDatabaseQuery
        qry3.SetHandle frmQuery(3).hwnd
        qry3.Title = "Untitled Query 3"

        .AttachPane qry2, qry1
        .AttachPane qry3, qry1

        .Options.LunaColors = True
        .Options.HideClient = True
       
        With .TabPaintManager
            .Appearance = xtpTabAppearanceVisualStudio2005
            .Color = xtpTabColorOffice2003
            .Position = xtpTabPositionTop
            .Layout = xtpTabLayoutAutoSize
        End With
       
        qry1.Select
        mId = 1
    End With


... which creates the following ....






The problem is that some of the controls can't be used. eg. I can't edit the text in the text box (except through code using ... frmQuery(1).sql = "SELECT * FROM tblentities" as in the above code)

In the lower half of the picture I can't do anything with the 2 tables at the top, but can use the "Collate" and "Options" buttons right next them.

It is worth noting that events like mouse click etc work as normal.

However, if I undock the pane, it all works fine.

I've spent hours on this one single problem and tried all sorts of different options, and have tried to emulate the various codejock samples provided, all to no avail.

Can someone please save me from tearing my hair out !!


Thankyou,

Rohan

Hi,

hi redfin,

since you wanted to use an mdi form, why dont you just use an mdi child form on your query forms? and then enable the tabworkspace of the commandbars object? as i have seen in your code you are also using dockingpanes for your query forms.

sample code:

With DockingPane1
        Set pneSchema = .CreatePane(0, Me.ScaleWidth * 0.2, Me.ScaleHeight, DockLeftOf, Nothing)
        pneSchema.Options = PaneNoCaption
        Set frmSchema = New frmDatabaseSchema
        pneSchema.SetHandle frmSchema.hwnd

        Connect Me 'this makes a connection to a database
        If frmConnect.Cancelled Then
            Unload Me
        End If

End With

dim i as long

for i = 0 to 2
    dim fQuery as frmDatabaseQuery
    set fQuery = new frmDatabaseQuery
      
    fQuery.Caption = "Untitled Query " & i+1
    fQuery.Show
next


just make sure that frmDatabaseQuery is an MDI-child form.

hope this helps.

redfin,

glad you were to solve your problems.