сохранение формы в jpg

[acid_bmstu]

Есть форма с картинкой и разными надписями
можно ли как-нибудь сохранить содержимое формы в jpg при нажатии кнопки
т е именно то содержимое которое отображается на экране

[mihali4]

Вот способ, которым я люблю пользоваться

var
ScreenDC:HDC;
Canvas:TCanvas;
myjpg:  TJPEGImage;
Image: TImage;
Begin
Image:=TImage.Create(nil);
myjpg:= TJPEGImage.Create;
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create();
Canvas.Handle:=ScreenDC;
Image.Width := Screen.Width;
Image.Height := Screen.Height;
Image.Canvas.CopyRect(Rect(0, 0, Image.Width, Image.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height));
ReleaseDC(0,ScreenDC);
myjpg.Assign(Image.Picture.Bitmap);
myjpg.compressionquality:=75; {устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество наилучшее, 1 наихудшее}
myjpg.compress; {производим сжатие данных картинки}
myjpg.SaveToFile('c:\prob.jpg');
Image.Free;
Canvas.Free; 
end;

Подправите

Image.Width := Screen.Width;
Image.Height := Screen.Height;

чтобы не весь экран, а вашу форму, и все будет ладушки...