帮帮忙,搞了一晚上了

[blackice1015]

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

[huboy]

直接相应form的onpaint函数即可。

就是类似下面的：

form1.canvas.moveto();
form1.canvas.lineto();

[saien]

直接用
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;