在paintbox内的onPaint 事件画图,怎么取消闪屏??

Question

在paintbox内的onPaint 事件画图,怎么取消闪屏??谢谢如有人说用  DoubleBuffered ,但本人试了好几次,加与没有一个样. 如果是用 DoubleBuffered 为处理
能不能给个代码示例出来,谢谢.

Answer 1

试过了，一点都不闪屏！（Delphi7）
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1.Canvas do
  begin
    Pen.Color:= clRed;
    Rectangle(10, 10, 50, 50);
  end;
end;

Answer 2

to man8888(北京男人)
你将 TForm1 在大小变化一下,你说会不会闪屏