在画布TCanvas中如何实现清屏？

Question

如题。
请那位高手指点。

Answer 1

Canvas.FillRect(Rect(0, 0, Canvas.Width, Canvas.Height))————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

Answer 2

procedure clearcanvas(Acanvas:Tcanvas);
var
  R:Trect;
begin
  with Acanvas do
    begin
       Brush.Style:=bsSolid;
       Brush.Color:=clWhite;
       GrtWindowsRect(Handlr,R);
       R.topleft:=screentoclient(R.topleft);
       R.Bottonright:=screentoclient(R.bottomright);
       Fillrect(R);
    end;
end;

Answer 3

GrtWindowsRect(Handlr,R);
错了，
GetWindowsRect(Handle,R);

Answer 4

with canvas do
begin
brush.color:=背景色;
fillrect(rect(0,0,width,height));
end;

Answer 5

to : lxpbuaa(桂枝香在故国晚秋)对你，我就一个字，服！向老大学习呀，呵呵。