GetFormImage

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TForm GetFormImage";
frm.Width =525;
frm.Height=375;

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Снимок!"';

// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Caption="Панель";
pnl.Left=pnl.Top=10;
pnl.Width =frm.ClientWidth-pnl.Left*2;
pnl.Height=frm.ClientHeight-pnl.Top*2;

// Кнопка
btn=new TButton(frm);
btn.Caption="Снимок!";
btn.Left=pnl.Left+pnl.Width-btn.Width;
btn.Top =pnl.Top+pnl.Height+10;
btn.OnClick=btn_Click;

// Подогнать размер формы под размер панели
frm.ClientWidth =pnl.Width+pnl.Left*2;
frm.ClientHeight=btn.Top+btn.Height+stb.Height+10;

frm.ShowModal();

// Обработчик события OnClick
function btn_Click(btn)
{
  var fim,img;

  // Форма под снимок
  fim=new TForm();
  fim.Caption=" Это снимок содержимого формы";

  // Изображение
  img=new TImage(fim);
  img.Width =frm.ClientWidth;
  img.Height=frm.ClientHeight;
  img.Picture.Assign(frm.GetFormImage());

  // Подогнать размер формы под размер изображения
  fim.Position=poDesigned;
  fim.Left=frm.Left+50;
  fim.Top =frm.Top +50;
  fim.ClientWidth =img.Width;
  fim.ClientHeight=img.Height;

  fim.ShowModal();
}