我在一幅Bitmap的图片上用鼠标左键标记点,想用鼠标右键删除我标记的点,请问怎样删除这个点,标记点我已经做好了,请高手给点提示.

解决方案 »

  1.   

    if Image1.Picture.Graphic<>nil then
    begin
        with PrintRect do
        begin
            Top := Y - 5;
            Left := X - 5;
            Right := X + 5;
            Bottom := Y + 5; 
        end;
        Image1.Canvas.Brush.Style := bsSolid;
        Image1.Canvas.Pen.Width := 1;
        Image1.Canvas.Ellipse(PrintRect);
    end;
    这是产生标记点的过程,标记点的颜色单纯的设置为背景色可能不行
      

  2.   

    全局变量rRect记下上次画的点区域rRect :=PrintRect    Image1.Canvas.Brush.Color := 背景色;
        Image1.Canvas.FillRect(rRect);
      

  3.   

    这样只能删除最近一次画的点,可能需要自己算rRect