将lable中的Transparent设成true(这样就变成透明了),然后在lable中用canvas画线。问：如何才可以像橡皮擦将所画的canvas所画的一点点擦掉，擦过的地方变成跟没画过一样。

一点一点的擦，速度奇慢无比，还要把画过的点记下来~~~~令人晕倒的方法 改用以下的xor法，就可以解决这个问题了

      with image1.picture.bitmap.canvas do begin
         pen.Width:=10;                  //画粗一点看的清楚
         pen.Style:=psSolid;
         pen.mode:=pmXor;                // 画线的方法
         pen.color:=clRED xor $FFFFFF;   // 假设你要画的是红色的线
         Polyline([point(10,10),point(100,100)]);// 画上红线
         // 暂停3秒再运行下条程序
         Polyline([point(10,10),point(100,100)]);// 这行就把刚刚画的线给Xor反差掉了
      end;

备注：这种方法画线并不会盖掉还没画线前的字、图案、线条...慎用 如果真要盖掉底图画线，还想恢复的话，就另外开个Canvas，画线前线CopyRect起来放着，等到要请线时，在CopyRect回来，这不就得了 發表人 - japhenchen 於 2004/03/18 17:04:43