怎么把PAINTBOX中的图形保存下来？

Question

如题 
最好能保存为JPG的，BMP、EMF格式的也行

Answer 1

var myrect:trect;
    bmp:tbitmap;
myrect:=paintbox.GetClientRect;
var
MyCanvas: TCanvas;
begin
  MyCanvas := TCanvas.Create;
  bmp:=tbitmap.create; 
  try
  MyCanvas.Handle := paintbox.canvas.handle;
  Bmp.PixelFormat := pf24bit;
  Bmp.Width := MyRect.Right-MyRect.Left;
  Bmp.Height := MyRect.Bottom-MyRect.Top;
  Bmp.Canvas.CopyRect(Rect(0,0,Bmp.Width,Bmp.Height), MyCanvas, MyRect);
  finally
  MyCanvas.Handle := 0;
  MyCanvas.Free;
  end;