帮帮忙,搞了一晚上了

Question

我自己定义了一个var g:tcanvas实例,在g中我画了一个图形,例如g.rectangle(0,0,10,10) ,我想用窗体form1的canvas显示出这个图形,怎么进行操作啊!
试了很多办法都不行,谢谢!

Answer 1

直接相应form的onpaint函数即可。就是类似下面的：form1.canvas.moveto();
form1.canvas.lineto();

Answer 2

直接用
procedure DrawImage(aCanvas:TCanvas);
  with aCanvas do
  begin
    Pen.Color := clRed ;
    Brush.Color := clWhite ;
    rectangle(0,0,200,200);
//    Ellipse(100,500,400,800);
    Brush.Style := bsDiagCross;
    Ellipse(250, 250, Self.Width, Self.Height);
  end;
end;