给个demo，你自己改一下
procedure TForm1.Button5Click(Sender: TObject);
var
bmp:tbitmap;
begin
bmp:=tbitmap.Create;
bmp.Height:=form1.Height;
bmp.Width:=form1.Width;
image1.Height:=panel1.Height;
image1.Width:=panel1.Width;
bmp.Canvas.CopyRect(rect(panel1.Left,panel1.Top,panel1.Width,panel1.Height),form1.Canvas,rect(panel1.Left,panel1.Top,form1.panel1.Width,panel1.Height));
image1.Picture.Bitmap:=bmp;
image1.Repaint;
bmp.Free;
end;
