02-15-2015
08:05 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
02-15-2015
08:05 AM
Hi,
Check the Programming Help for an example, methodes and properties, search for "DockableWindow Object".
This is a code example found in the help:
Sub DockableWindow()
Dim oUserInterfaceMgr As UserInterfaceManager
Set oUserInterfaceMgr = ThisApplication.UserInterfaceManager
' Create a new dockable window
Dim oWindow As DockableWindow
Set oWindow = oUserInterfaceMgr.DockableWindows.Add("SampleClientId", "TestWindowInternalName", "Test Window")
' Get the hwnd of the dialog to be added as a child
' CHANGE THIS VALUE!
Dim hwnd As Long
hwnd = 4851096
' Add the dialog as a child to the dockable window
Call oWindow.AddChild(hwnd)
' Don't allow docking to top and bottom
oWindow.DisabledDockingStates = kDockTop + kDockBottom
' Make the window visible
oWindow.Visible = True
End Sub
Regards,
Eelco