怎样才能将报表（或窗体上的某个区域）保存为图片？？？急，给点想法。

Question

如题。最好给出关键代码。谢。

Answer 1

将区域的图像先复制到一个上，然后保存，如：
procedure TForm1.Button1Click(Sender: TObject);var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      Assign(Image1.Picture.Bitmap);
      SaveToFile('c:\oneeye.jpg')
    end;
  finally
    jp.Free;
  end;
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————