bitblt 的问题 -续 ( 积分: 15 )

var bitmap:Tbitmap;
begin
bitmap:=Tbitmap.create;
bitmap.width:=1024; bitmap.height:=700;
bitmap.canvas.textout(10,10,'abc');
bitblt(form1.Canvas.Handle,0 ,0,form1.Width,form1.Height,
bitmap.Canvas.Handle,0,0,srccopy);
bitmap.free;
end;

按照上面程序绘制文字后，如果再使用上面的方法绘制其他文字，那么如何擦除窗体上原来绘制的文字,避免文字重叠.

var bitmap:Tbitmap;
begin
bitmap:=Tbitmap.create;
bitmap.width:=1024; bitmap.height:=700;
bitmap.canvas.textout(10,10,'abc');
bitblt(form1.Canvas.Handle,0 ,0,form1.Width,form1.Height,
bitmap.Canvas.Handle,0,0,srccopy);
bitmap.free;
end;

按照上面程序绘制文字后，如果再使用上面的方法绘制其他文字，那么如何擦除窗体上原来绘制的文字,避免文字重叠.