(SOLVED) Can't stop Pane hiding

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

    I have a Pane docked to side of the main form.  When cursor is put on Pane tab the Pane opens, and
when cursor moves off the pane it hides again. That is all working correctly.

On the form inside this Pane there is a CommandButton. When I click the button it brings up a MessageBox.  
I want to click the MessageBox button and then continue with the Pane form. 

Problem is that when I move mouse off the Pane to the MessageBox, the Pane closes. I want it to stay open.

I have tried:
    Sub Cmd_Click()
       Pane.options = PaneNoHideable
         MsgBox "Hello"
       Pane.options = 0      'or anything else
       DPM.ShowPane Pane.Id
    End Sub

but this doesn't work. Pane hides as soon as mouse moves off it, and stays hidden after MsgBox button clicked.

Any suggestions please?

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
chrisABC Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 June 2008 Status: Offline Points: 258	Post Options Post Reply Quote chrisABC Report Post Thanks(0) Quote Reply Topic: (SOLVED) Can't stop Pane hiding Posted: 11 February 2009 at 1:01pm
	I have a Pane docked to side of the main form. When cursor is put on Pane tab the Pane opens, and when cursor moves off the pane it hides again. That is all working correctly. On the form inside this Pane there is a CommandButton. When I click the button it brings up a MessageBox. I want to click the MessageBox button and then continue with the Pane form. Problem is that when I move mouse off the Pane to the MessageBox, the Pane closes. I want it to stay open. I have tried: Sub Cmd_Click() Pane.options = PaneNoHideable MsgBox "Hello" Pane.options = 0 'or anything else DPM.ShowPane Pane.Id End Sub but this doesn't work. Pane hides as soon as mouse moves off it, and stays hidden after MsgBox button clicked. Any suggestions please?
	Chris (Manchester, UK) -- www.abc6.co.uk ---- Using CodeJock ActiveX Suite 13.1.0 with Windows8, VB6 SP6

Aaron Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 29 January 2008 Status: Offline Points: 2192	Post Options Post Reply Quote Aaron Report Post Thanks(0) Quote Reply Posted: 12 February 2009 at 2:17pm
	Hi Chris, This is as close I can get: Sub Cmd_Click() wndDockingPanes.FindPane(1).Enabled = PaneDisabled MsgBox "test" wndDockingPanes.FindPane(1).Enabled = PaneEnabled End Sub If you show MsgBox the pane will be disabled anyway so you don't see any difference. Hope this helps
	Product: Xtreme SuitePro (ActiveX) version 15.0.2 Platform: Windows XP (32bit) - SP 2 Language: Visual Basic 6.0 Zero replies is not an option....

chrisABC Members Profile Send Private Message Find Members Posts Add to Buddy List Senior Member Joined: 05 June 2008 Status: Offline Points: 258	Post Options Post Reply Quote chrisABC Report Post Thanks(0) Quote Reply Posted: 12 February 2009 at 6:49pm
	Thank you. That works great. (Another way to do it would have been to put some controls on the Pane to use as a "message box", but Aaron's idea is more general.)
	Chris (Manchester, UK) -- www.abc6.co.uk ---- Using CodeJock ActiveX Suite 13.1.0 with Windows8, VB6 SP6