欲清除 TImage 的圖形,可以使用: Image1.Picture := nil; 或者: procedure TForm1.Button1Click(Sender: TObject); var ARect: TRect; begin Image1.Canvas.CopyMode := cmWhiteness; ARect := Rect(0, 0, Image1.Picture.Width, Image1.Picture.Height); Image1.Canvas.CopyRect(ARect, Image1.Canvas, ARect); Image1.Canvas.Copymode := cmSrcCopy; end;