Delphi XE7中TPaintBox绘制图形被TImage遮挡的问题排查

这个问题的核心在于**FormPaint事件的执行时机和控件Z顺序生效的时机不匹配**，同时你也选错了绘制逻辑的处理位置。

为什么矩形会被TImage盖住？ #

当FormPaint事件触发时，Form已经启动了一轮完整的绘制流程，此时所有子控件的绘制顺序（Z顺序）已经被系统确定下来。你在FormPaint里调用BringToFront，只会改变控件下一次绘制时的Z顺序，对当前正在进行的这次绘制完全没有影响。也就是说，当前这轮绘制还是按照原来的Z顺序执行：TImage在PaintBox上方，所以TImage会在PaintBox绘制之后再完成自身绘制，自然就把你画的矩形盖住了。

另外还有一个小问题：PaintBox有专门的OnPaint事件用来处理自身的绘制逻辑，把绘制代码放在FormPaint里并不是符合Delphi控件设计的正确实践。

正确的解决方法 #

你只需要调整两个地方就能解决问题：

1. 把BringToFront的调用移到程序启动时的时机，比如Form的OnCreate事件，确保PaintBox的Z顺序在一开始就处于最上层；
2. 将绘制矩形的逻辑移到PaintBox自己的OnPaint事件中。

修改后的代码示例：

procedure TForm1.FormCreate(Sender: TObject);
begin
  PaintBox1.BringToFront; // 一次设置，全程生效
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  PB: TPaintBox;
begin
  PB := Sender as TPaintBox;
  PB.Canvas.Rectangle(0, 0, PB.Width - 1, PB.Height - 1);
end;

特殊场景的临时处理（不推荐） #

如果因为某些特殊需求，你必须在FormPaint里动态调整Z顺序并立即生效，可以在调用BringToFront后强制PaintBox立即重绘：

procedure TForm1.FormPaint(Sender: TObject);
begin
  PaintBox1.BringToFront;
  PaintBox1.Invalidate; // 标记PaintBox需要重绘
  PaintBox1.Update;     // 立即执行重绘，抢在Form绘制流程结束前完成
end;

不过这种方式容易打乱正常的绘制流程，可能引发界面闪烁或性能问题，优先推荐第一种标准解决方案。

内容的提问来源于stack exchange，提问作者Steve Peter