Hello Richard, Jaehong,
I have to contradict you on this, if you call radDock1.ActiveWindow.FindForm() it will return the parent form, please see the following example:
Imports System
Imports System.Windows.Forms
Imports Telerik.WinControls.UI
Imports Telerik.WinControls.UI.Docking
Partial Public Class Form1
Inherits Form
Private WithEvents radDock1 As New RadDock()
Private WithEvents CreateFormButton As New RadButton
Private WithEvents GetActiveFormButton As New RadButton
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.IsMdiContainer = True
radDock1.AutoDetectMdiChildren = True
Me.radDock1.MdiChildrenDockType = Telerik.WinControls.UI.Docking.DockType.Document
radDock1.Dock = DockStyle.Fill
Me.Controls.Add(radDock1)
CreateFormButton.Text = "Create Form"
CreateFormButton.Dock = DockStyle.Bottom
Me.Controls.Add(CreateFormButton)
GetActiveFormButton.Text = "Get Active Form"
GetActiveFormButton.Dock = DockStyle.Bottom
Me.Controls.Add(GetActiveFormButton)
End Sub
Private Sub getActiveFormButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles GetActiveFormButton.Click
Dim activeForm = DirectCast(radDock1.DocumentManager.ActiveDocument, Telerik.WinControls.UI.Docking.HostWindow).MdiChild
Dim form = radDock1.ActiveWindow.FindForm()
If (Not activeForm.Equals(form)) Then
MessageBox.Show("Child form is: " + activeForm.Name+ " Parent form is: "+form.Name)
End If
End Sub
Private Sub button_Click(ByVal sender As Object, ByVal e As EventArgs) Handles CreateFormButton.Click
Dim form = New ChildForm()
form.Name = "ChildForm " + radDock1.DockWindows.Count.ToString
form.Text = "ChildForm " + radDock1.DockWindows.Count.ToString
form.MdiParent = Me
radDock1.ActivateMdiChild(form)
form.Show()
End Sub
End Class
Public Class ChildForm
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
''' <summary>
''' Required designer variable.
''' </summary>
Private components As System.ComponentModel.IContainer
''' <summary>
''' Clean up any resources being used.
''' </summary>
''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso (components IsNot Nothing) Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
#Region "Windows Form Designer generated code"
''' <summary>
''' Required method for Designer support - do not modify
''' the contents of this method with the code editor.
''' </summary>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Text = "Form1"
End Sub
#End Region
End Class
If you have any other questions or comments, please let me know,
Best Regards,
Emanuel Varga