如题

解决方案 »

  1.   

    OnPaint时
    var
      g : TGPGraphics;
      p : TGPPen;
    begin  g := TGPGraphics.Create(bitmapPaint.Canvas.Handle);
      p := TGPPen.Create(MakeColor(255,0,0),4);  g.Clear(MakeColor(255,255,255));
      g.DrawLine(blackPen, 125, 3, 125, 240);
      g.DrawLine(blackPen, 15, 125, 235, 125);  p.Free;
      g.Free;
    end;如果把g : TGPGraphics;声明为成员变量 则看不到图形
      

  2.   

    tgraphics是依靠bitmap的canvas的handle创建的,如果bitmap的大小等属性发生变化的时候它的handle会发生变化,那么tgraphics就找不到正确的handle当然无法在bitmap上画出图形,你可以检查下你创建tgraphics后bitmap的属性是否有过改变。
      

  3.   

     谢谢mxm8547, 没有改变过, 是在from的canvas中绘制的