Delphi MDI程序中TEventScrollBox绘图闪烁问题求助

核心问题根源 #

闪烁的主要原因包括：

1. TScrollBox默认的WM_ERASEBKGND会频繁擦除背景，与自定义绘制产生两次刷新冲突
2. MDI环境下控件自带的DoubleBuffered属性会被MDI父窗口的绘制机制覆盖，无法生效
3. 直接在控件画布执行SetDIBitsToDevice属于即时绘制，没有缓冲过渡

解决方案1：禁用默认背景擦除 #

重写WM_ERASEBKGND消息，阻止系统自动擦除背景，避免不必要的刷新：

// 在TEventScrollBox的private部分添加声明
Procedure WMEEraseBkgnd(var Msg: TWMEraseBkgnd); Message WM_ERASEBKGND;

// 实现方法
Procedure TEventScrollBox.WMEEraseBkgnd(var Msg: TWMEraseBkgnd);
Begin
  Msg.Result := 1; // 告知系统已自行处理背景，无需默认擦除
End;

解决方案2：手动实现离屏双缓冲绘制 #

放弃依赖控件自带双缓冲，自己创建离屏画布完成所有绘制后一次性输出到控件，彻底消除闪烁：

Procedure TEventScrollBox.WMPaint( Var Message: TWMPaint );
Var
  OffscreenBmp: TBitmap;
  PS: TPaintStruct;
  DC: HDC;
  OldCanvas: TCanvas;
Begin
  DC := BeginPaint(Handle, PS);
  Try
    OffscreenBmp := TBitmap.Create;
    Try
      OffscreenBmp.Width := ClientWidth;
      OffscreenBmp.Height := ClientHeight;
      
      // 绘制基础背景（可根据需求调整颜色或样式）
      OffscreenBmp.Canvas.Brush.Color := Color;
      OffscreenBmp.Canvas.FillRect(Rect(0, 0, ClientWidth, ClientHeight));
      
      // 临时替换画布为离屏缓冲，执行自定义绘制
      If Assigned(PaintProc) then
      Begin
        OldCanvas := FCanvas;
        FCanvas := TBitmapCanvas.Create(OffscreenBmp);
        Try
          PaintProc(Self); // 此时PaintProc会绘制到离屏画布
        Finally
          FCanvas.Free;
          FCanvas := OldCanvas; // 恢复原控件画布
        End;
      End;
      
      // 一次性将离屏内容绘制到控件
      BitBlt(DC, 0, 0, ClientWidth, ClientHeight, OffscreenBmp.Canvas.Handle, 0, 0, SRCCOPY);
    Finally
      OffscreenBmp.Free;
    End;
  Finally
    EndPaint(Handle, PS);
  End;
  // 注释掉Inherited，避免执行TScrollBox的默认绘制逻辑
End;

解决方案3：优化MDI子窗口属性 #

调整MDI子窗口的绘制相关属性，减少父窗口对控件的影响：

// 在MDI子窗口的构造函数中添加
DoubleBuffered := True;
ParentBackground := False;

额外优化建议 #

• 避免全局调用Invalidate，改用InvalidateRect指定精确的刷新区域，减少重绘范围
• 滚动事件触发时，仅刷新滚动偏移对应的区域，而非整个控件

内容的提问来源于stack exchange，提问作者Alcor Prism