重载消息 WM_Paint;procedure WMPaint(var Msg: TMessage);message WM_Paint;begin
  inherited;
  // 自己的画图过程;
end;

解决方案 »

  1.   

    Canvas.Brush.Color := Color; // Color 就是你说的背景色;
      Canvas.TextOut(1,1,'AAAAAAA');
      

  2.   

    Canvas.Brush.Style = bsClear;
      

  3.   

    Apollo47似乎还没有说完啊。单用这个闪的很厉害。怎么办啊?
      

  4.   

    Apollo47
    你用WNPAINT消息,那样会导致循环
    当你画的时候又会有发生一个WMPAINT消息,所以就老闪!
    还是想其他办法吧