MessageBox 保持隐藏状态，直到父窗体重新获得焦点

Question

我正在实现一个自定义控件，它提供要从外部类（即主窗体）处理的公共事件。

主窗体可以处理这些事件（在我的例子中它是一个高级 TabControl）。

我的自定义控件的摘录：

public class FlatTabControlEx : TabControl {
  public delegate void OnTabCloseQueryDelegate(int tabIndex, TabPage tabPage);
  public event OnTabCloseQueryDelegate TabCloseQuery;

  protected override void OnPaint(PaintEventArgs e) {
    DrawControl(e.Graphics);
    base.OnPaint(e);
  }

  protected override void OnClick(EventArgs e) {
    var imageRect = GetImageRectangle()
    bool mouseOver = imageRect.Contains(GetMousePos());         
    if (mouseOver) {
      if (TabCloseQuery != null) {
        TabCloseQuery(i, TabPages[i]);
      }
    }
  }
}

以下是我处理该事件的方式：

public partial class TestForm : Form {
  public TestForm() {
    InitializeComponent();

    _flatTabControlEx.TabCloseQuery += (index, tabPage) => {
      if (MessageBox.Show("Close tab with title " + tabPage.Text, "Question", MessageBoxButtons.YesNo) == DialogResult.Yes) {
        _flatTabControlEx.TabPages.Remove(tabPage);
      }
    };
  }
}

不知何故，消息框被隐藏（通过其主窗体？），并且仅在主窗体失去并重新获得焦点时才显示。提供不同的所有者似乎没有帮助。

我该如何处理这种情况以及这种行为是如何引起的？

编辑1：在上面添加了一些最小化的代码。

编辑 2：我注意到实际上是我的控件绘制在 MessageBox 上。我如何确定何时绘制它？

Answer 1

我对 datagridview cellpainting 事件也有同样的问题。
要做的就是避免重复。

当您离开控件时，会触发一些事件，例如验证、绘制等。

对于这种情况，当消息框打开时，控件会检查他的任务并开始执行。如果存在数据格式错误，则停止进程；如果存在绘制任务，则将父窗体保留在顶部，因此消息框保留在后面。

这是我的解决方案（Winforms，但应该是相同的）

Public Class HybridDataGridView
Inherits DataGridView
WithEvents NewDataGridViewTextBox As New TextBox
Private NoFocus As Integer = 0

 Private Sub HybridDataGridView_LostFocus(sender As Object, e As EventArgs) Handles Me.LostFocus
    NoFocus = 1
 End Sub
 Private Sub HybridDataGridView_GotFocus(sender As Object, e As EventArgs) Handles Me.GotFocus
    NoFocus = 0
  End Sub
 Private Sub HybridDataGridView_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles Me.CellPainting
    If Me.CurrentCell Is Nothing Then
        Exit Sub
    End If
    Dim Kalem As Pen
    If e.ColumnIndex = Me.CurrentCell.ColumnIndex And e.RowIndex = Me.CurrentCell.RowIndex Then
        If NoFocus = 0 Then
           Kalem = New Pen(Color.Black, 1)
           e.PaintBackground(e.ClipBounds, True)
           e.PaintContent(e.ClipBounds)
         End if
      End if

  End sub
End Class