设置paintbox的fontSize会导致调用onpaint

我需要写一些文本到一个画盒,我在OnPaint事件中这样做。当我设置字体大小时 两次 在方法中,onpaint事件被重复调用。

要亲自查看,请尝试以下操作:

1. 新建VCL窗体应用程序
2. 在窗体上放置一个漆盒
3. 在onpaint事件中输入以下代码:

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  PaintBox1.Canvas.MoveTo(random(PaintBox1.Width),random(PaintBox1.Height));
  PaintBox1.Canvas.LineTo(random(PaintBox1.Width),random(PaintBox1.Height));

  PaintBox1.Font.Size := 10; 
  PaintBox1.Font.Size := 12; 
end;

当你运行应用程序时,你会看到一行“跳跃”在油漆箱上。但是,如果删除一条或两条设置字体大小的线,则会看到一条固定的线。

为什么会发生这种情况,我能做些什么来解决它?