难呀难，怎么在一个IMAGE组件上图一个绿圈（已经载入图片）但不能把圈中的图擦掉

Question

不对呀，我把brush的style改为bsclear以后，再改pen.color的时侯，颜色可以变呀，你该不会是去改brush的color吧。

Answer 1

bursh 和Pen是不同的两种东西.

Answer 2

with shape1 do
begin
  shape:=stCircle;
  brush.style:=bsClear;
  Pen.Color:=clGreen;
  Pen.style:=psSolid;
  pen.mode=pmCOPY;
  pen.width:=1;
end; //with

Answer 3

<a href="mailto:[email protected]"><font color="#FFFFFF">百联美达美科技有限公司</font></a>

Answer 4

procedure TForm1.Button1MouseMove
         (Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
form1.repaint;
form1.Canvas.pen.color:=clGreen;
form1.Canvas.pen.width:=5;
form1.Canvas.polyline([point(Button1.left,Button1.top),
 point(Button1.left+Button1.width,Button1.top),
 point(Button1.left+Button1.width,Button1.top+Button1.height),
 point(Button1.left,Button1.top+Button1.height),
 point(Button1.left,Button1.top)]);
end;