Rank 2
Iron
Iron
Iron
Hi,
I'd like to customize the location of a MessageBox. Ideally, I would just set a parent control and the MessageBox would center itself to the parent.
I tried this ((0,0) to make it obvious) but it doesn't work:
'Dim pt As Point = New Point(Me.Parent.Location.X + Me.Location.X, Me.Parent.Location.Y + Me.Location.Y)
'Telerik.WinControls.RadMessageBox.Instance.Location = New Point((pt.X + Me.Width / 2) - (Telerik.WinControls.RadMessageBox.Instance.Width / 2), (pt.Y + Me.Height / 2))
Telerik.WinControls.RadMessageBox.Instance.Location = New Point(0, 0)
Dim ds As DialogResult = Telerik.WinControls.RadMessageBox.Show(Me, "Are you sure?", "Clear form",
MessageBoxButtons.YesNo, RadMessageIcon.Question,
MessageBoxDefaultButton.Button1)I've also found this bit of code (modified it according to my needs) from an older answer to someone else's similar question:
Private Sub Instance_LocationChanged(sender As Object, e As EventArgs)
RemoveHandler RadMessageBox.Instance.LocationChanged, AddressOf Instance_LocationChanged
Dim box As RadMessageBoxForm = sender
Dim pt As Point = New Point(Me.Parent.Location.X + Me.Location.X, Me.Parent.Location.Y + Me.Location.Y)
box.Location = New Point((pt.X + Me.Width / 2) - (box.Width / 2), (pt.Y + Me.Height / 2))
AddHandler RadMessageBox.Instance.LocationChanged, AddressOf Instance_LocationChanged
End SubBut the problem here is that the MessageBox is then static and can't be moved.
Suggestions?
Using version 2021.1.326.40.
Jure
1 Answer, 1 is accepted
Hello Jure,
Thank you for the provided code snippet.
I have double check your scenario on my side but wasn't able to observe the described behavior. On my side, the RadMessageBox is positing in the center of its parent when shown. I think I am missing something from your setup. You can share what type of form, window, usercontrol are you using as a parent. Could it be possible to isolate this behavior in a standalone project so that I can take a closer look and provide a suitable solution?
I am looking forward to your reply.
Regards,
Dinko
Progress Telerik
Rank 2
Iron
Iron
Iron
Thank you for the provided details. Now I see what you have in mind. Upon checking the source code, when the RadMessageBox Show method is called, internally we are looking for a parent of type Form. If we could not find such, the control will be centered on the main screen. Now in your case, to set custom location, you can use the Location property as you have already done. The control is not draggable because the LocationChanged event is called every time. You just need to move the logic from the LocationChanged to the Shown method, which will be called one time.
private void ShowMessageBox_Click(object sender, EventArgs e)
{
Telerik.WinControls.RadMessageBox.Instance.LocationChanged -= Instance_LocationChanged;
Telerik.WinControls.RadMessageBox.Instance.LocationChanged += Instance_LocationChanged;
Telerik.WinControls.RadMessageBox.Instance.Shown -= Instance_Shown;
Telerik.WinControls.RadMessageBox.Instance.Shown += Instance_Shown;
Telerik.WinControls.RadMessageBox.Instance.Opacity = 0;
DialogResult ds = RadMessageBox.Show(this.panel1, "Are you sure?", "Clear form", MessageBoxButtons.YesNo, RadMessageIcon.Question, MessageBoxDefaultButton.Button1);
}
private void Instance_Shown(object sender, EventArgs e)
{
Telerik.WinControls.RadMessageBox.Instance.Location = new Point(50,50);
Telerik.WinControls.RadMessageBox.Instance.Opacity = 1;
}As a side note, when you use the above approach you could observe some flickering behavior. To remove it you can hide the control, change its Location and show it again.
I think that this approach is what you are looking for.
Rank 2
Iron
Iron
Iron