ShowMessage出现在form-Delphi后面

Question

我的程序在代码中有一个 MessageBox。我第一次运行它时它似乎没有出现并且程序冻结了。我花了几个小时阅读论坛，我已经尝试了一切。我在 MessageBox 之前最小化了我的表单，似乎对话框出现在表单后面。我尝试了这段代码，但没有任何效果。

Application.NormalizeTopMosts; MessageBox(Handle,'Test','A message test',MB_SYSTEMMODAL or MB_SETFOREGROUND or MB_TOPMOST or MB_ICONHAND);

P.S.：我在程序中有另一个表单，它在该表单上运行良好，我确保它们都具有相同的设置

编辑：

我刚刚意识到是我的 StringGrid 的 OnCellDraw 功能导致消息被隐藏。我设法通过使 StringGrid 不可见然后再次可见来使其工作。 OnDrawCell 有一个愚蠢的代码，它使用带颜色的单元格显示一年中的预订天数。我想知道是否有更好的方法让消息出现而不使字符串网格不可见。不运行 OnDrawCell，MessageBox 也可以工作

procedure TfrmClient.stgYearPlanDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  k, iMonth, iDay, iStart, iEnd, iSubtract : Integer;
begin
    case iYear of
      2020 :  begin
                iStart := 1;
                iEnd:= 12;
                iSubtract := 0;
              end;
      2021  : begin
                iStart := 13;
                iEnd:= 24;
                iSubtract := 12;
              end;
      2022  : begin
                iStart := 25;
                iEnd := 36;
                iSubtract := 24;
              end;
    end;
    for k := 1 to 31 do
      stgYearPlan.Cells[k,0] := IntToStr(k);

    for k := 1 to 12 do
      stgYearPlan.Cells[0,k] := ShortMonthNames[k];

    for iMonth := iStart to iEnd do
    begin
    for iDay := 1 to 31 do
     begin
          if ar2Booking[iDay,iMonth] = 'Y' then
          begin
            if (ACol = iDay) and (ARow = (iMonth-iSubtract)) then
            begin
              stgYearPlan.Canvas.Brush.Color := clBlack;
              stgYearPlan.Canvas.FillRect(Rect);
              stgYearPlan.Canvas.TextOut(Rect.Left,Rect.Top,stgYearPlan.Cells[ACol, ARow]);
            end;
          end;

          if ar2Booking[iDay,iMonth] = 'D' then
          begin
            if (ACol = iDay) and (ARow = (iMonth-iSubtract)) then
            begin
              stgYearPlan.Canvas.Brush.Color := clSilver;
              stgYearPlan.Canvas.FillRect(Rect);
              stgYearPlan.Canvas.TextOut(Rect.Left+2,Rect.Top+2,stgYearPlan.Cells[ACol, ARow]);
            end;
          end;
     end;
     end;
end;```

Answer 1

问题是您在其OnDrawCell 处理程序中使用数据填充字符串网格。

您只应该在此方法中在画布上绘图；你不应该接触数据。

当网格需要重新绘制时，会调用其OnDrawCell 处理程序。您在网格中绘制（没关系），但您也更改了数据。正因为如此，网格意识到它需要再次重绘自己（因为它的数据已经改变了！），所以它的OnDrawCell 处理程序被调用。您在网格中绘制（没关系），但您也更改了数据。正因为如此，网格意识到它需要再次重绘自己（因为它的数据已经改变了！），所以它的OnDrawCell处理程序被调用，...

好吧，我就停在那里。

显然，这会导致无限的重绘序列，这将使您的应用程序忙于重绘网格。

您可以很容易地看到这种现象的实际作用。只需创建一个新的 VCL 应用程序，在主窗体上拖放一个 TStringGrid 并添加

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  StringGrid1.Cells[3, 3] := Random(100).ToString;
end;

您会在 (3, 3) 单元格中看到一个不断更新的随机数。

忙于绘制网格会产生很多后果。例如，除了您发现的消息框异常之外，您可能会看到您的进程最大化 CPU 的单个“线程”（例如，如果您有一个四核 HT CPU，您将完全使用一个线程，或 1/8 = 12.5% CPU）。