很简单的问题，就是怎么清掉image。canvas的图象(50分)

rt

procedure ClearCanvas;
var
R: TRect;
begin
//Clear the content of the canvas
with Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := clWhite;
GetWindowRect(Handle,R);
R.TopLeft := ScreenToClient(R.TopLeft);
R.BottomRight := ScreenToClient(R.BottomRight);
FillRect(R);
end;
end;

Image1.MouseInteract :=[];
Image1.Blank;

Canvas.FillRect

就是在原来画布上在画上背景或你想要的东西