如何将FORM保存为JPG图片?

Question

我想实现这样一个功能，将程序中某个窗体界面保存为JPG图片。
该如何实现？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  Bitmap: TBitmap;
  MyRect: TRect;
  JPG:TJPEGImage;
begin
  MyRect.Left:=0;
  MyRect.Top:=0;
  MyRect.Right:=Width;
  MyRect.Bottom:=height;
  Bitmap := TBitmap.Create;
  Bitmap.Width:=Width;
  Bitmap.Height:=Height;
  Bitmap.Canvas.CopyRect(MyRect,Canvas,MyRect);
  JPG:=TJPEGImage.Create;
  JPG.Assign(Bitmap);
  JPG.CompressionQuality:=100;
  JPG.Performance:=jpBestQuality;
  JPG.Compress;
  JPG.SaveToFile('e:\temp\t.jpg');
  Bitmap.Free;
  JPG.Free;
end;