GDI+中TGPGraphics的create问题
我定义了一个 G_Handle:THandle 全局句柄,发现在当前函数(即Button1Click)中赋值时,能正常画图,
而在 另外函数(比如 Button2Click)中先赋值,再点击画图函数时,就无法实现画图。
刚接触GDI+,很困惑这个问题,盼老手指点迷津~~
procedure TForm1.Button1Click(Sender: TObject);var g: TGPGraphics; p: TGPPen;begin GL_Handle:= image1.Canvas.Handle; g := TGPGraphics.Create(GL_Handle); p := TGPPen.Create(0, 2); p.SetColor(aclRed); g.DrawRectangle(p,10,10,20,20); g.Free; p.Free; Image1.Repaint;end;