Display a form just below a RadButtonElement placed on title bar

[Swaroop]

Hello,
Ive added a RadButtonElement to my RadForm's TitleBar using the below mentioned code:

Public Class RadForm1
Dim b1 As New RadButtonElement
Sub RadForm_Load(...) Handles RadForm.Load
FormElement.TitleBar.SystemButtons.Children.Insert(0, b1)
End Sub
End Class

Now what I want to achieve is when I click on b1 a small form (RadForm2) should be displayed just below b1. For that I tried to get the location of b1 so that I can use the b1's location value to set the location of RadForm2. But the location value of b1 returns 0,0.
So maybe I can't achieve what I want using the ButtonElement's location value as it seams the location value of any button element on the TitleBar is always 0,0.
So is there anyway I can get RadForm2 to be displayed just below b1?

[Nadya | Tech Support Engineer]

Hello, Swaroop,

The provided code snippet is greatly appreciated.

You can get the location of the newly added button by using the ControlBoundingRectangle property. The exact X and Y coordinates you can get from ControlBoundingRectangle.X and ControlBoundingRectangle.Y. Note, that this will give the control coordinates within the form. Before positioning the second form you should translate them into the screen coordinate system.

I prepared a sample example for your reference:

Public Partial Class RadForm1
    Inherits Telerik.WinControls.UI.RadForm
    Private b1 As RadButtonElement = New RadButtonElement()
    Public Sub New()
        InitializeComponent()
        b1.Text = "b1"
       AddHandler b1.Click, AddressOf  Me.B1_Click
        FormElement.TitleBar.SystemButtons.Children.Insert(0, b1)
    End Sub
End Class

Private Sub B1_Click(ByVal sender As Object, ByVal e As EventArgs)
   ' Get the button location
    Dim form_pt As Point = New Point(b1.ControlBoundingRectangle.X, b1.ControlBoundingRectangle.Y)
    ' Translate into the screen coordinate system.
    Dim screen_pt As Point = Me.PointToScreen(form_pt)
    Dim frm As RadForm = New RadForm()
    frm.StartPosition = FormStartPosition.Manual
    frm.Location = screen_pt
    frm.Show()
End Sub

I hope this helps. Should you have other questions do not hesitate to contact me.

 

Regards,
Nadya
Progress Telerik