Question

-----delphi的image控件,怎么清除图像?

------比如:在button1的单击事件写下,canvas.moveto(坐标); canvas.lineto(坐标);就会在form1上画出一条直线,,,button2中再写repaint;,就可清除刚刚画的直线,之后我在button3中写下,image1.canvas.moveto(坐标); image.canvas.lineto(坐标);同样可以画出直线,但是在button4中写下,image.repaint;却清除不了图像------怎么清除image的图像呢?知道的说下.谢谢了

Answer 1

rect: trect;
rect.left:= 0;
rect.top:= 0;
rect.right:= image1.width;
rect.bottom:= image1.height;
image1.canvas.fillrect(rect);

Answer 2

image1.Picture.Graphic.assign(nil);
image1.Picture.Graphic:=nil;

Answer 3

image.picture:=nil;