---------在图片上画4边形，为什么没显示？----------

Question

本帖最后由 cowbobe 于 2013-09-01 19:26:20 编辑

Answer 1

  Canvas.Brush.Color := clGreen;
  Canvas.Brush.Style := bssolid;
这两句设定的是form的画布属性吧

Answer 2

  {建立多边形区域}
  Rgn := CreatePolygonRgn(pts, 4, WINDING);  {绘制区域边界 }
  Image1.Canvas.Brush.Color := clGreen;  // 加上 img1
  Image1.Canvas.Brush.Style := bssolid;  // 加上 img1  FrameRgn(Image1.Canvas.Handle, Rgn, Image1.Canvas.Brush.Handle, 4, 4);
  {当去掉image1}  DeleteObject(Rgn);
  Image1.Refresh;  // 刷新