Сохранить форму в jpg

[Aleksandr]

Как сохранить форму в jpg? Если я пользуюсь кодом

var
JpegIm: TJpegImage;
  bm: TBitMap;
  d1:string;
begin
 //ðèñóíîê
      bm := TBitMap.Create;
//  bm.Width := Screen.Width;
// bm.Height := Screen.Height;
  bm.Width := form2.Width;
 bm.Height := form2.Height;
  BitBlt(bm.Canvas.Handle, 0, 0,
  bm.Width, bm.Height,
  GetDC(0), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 20;
  JpegIm.Compress;
  d1:= DateToStr(now)+TimeToStr(now);
  d1:=StringReplace(d1, '.','' , [rfReplaceAll]);
  d1:=StringReplace(d1, ':','' , [rfReplaceAll]);
  JpegIm.SaveToFile('d:\data\'+d1+'.jpg');
  bm.Destroy;
  JpegIm.Destroy;

то сохраняет рабочий стол с размерами формы.

[BDA]

var
  JpegIm: TJpegImage;
  bm: TBitMap;
  d1: string;
begin
  bm := TBitMap.Create;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
  BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(Form1.Handle), 0,
    0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 20;
  JpegIm.Compress;
  d1 := DateToStr(now) + TimeToStr(now);
  d1 := StringReplace(d1, '.', '', [rfReplaceAll]);
  d1 := StringReplace(d1, ':', '', [rfReplaceAll]);
  JpegIm.SaveToFile(extractfilepath(paramstr(0)) + 'data\' + d1 + '.jpg');
  bm.Destroy;
  JpegIm.Destroy;
end;

[Aleksandr]

Сохраняет черный квадрат

[Stilet]

Не подтверждаю. Код целиком правильный.
Ты где его вставил?

[raxp]

...может у формы прозрачность выставлена?

[Stilet]

Или скины с неким мегакрутым менеджером...

[Aleksandr]

У меня в проекте 2 формы. Код вызываю на первой форме, а скрин нужно сделать второй формы. Если я делаю скрин первой формы то все нормально.

[tsar_]

Вот черновой вариант.
На первой форме лежит Button1, по щелчку на ней происходит следующее:

procedure TForm1.Button1Click(Sender: TObject);
var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  Form2.show;
  bm := TBitMap.Create;
  bm.Width := Form2.ClientWidth;
  bm.Height := Form2.ClientHeight;
  BitBlt(bm.Canvas.Handle, 0, 0, bm.Width, bm.Height, GetDC(Form2.Handle), 0,
    0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 20;
  JpegIm.Compress;
  JpegIm.SaveToFile(changefileext(paramstr(0),'.jpg'));
  bm.Destroy;
  JpegIm.Destroy;
  Form2.Hide;
end;

[Stilet]

скрин нужно сделать второй формы.

Она хоть на экране видна?
Как и где вызываешь?

GetDC(Form2.Handle)

Не надежнее ли FormXXX.Canvas.Handle?

[Aleksandr]

Если устанавливаю Form2.Canvas.Handle тогда белый лист.
Если Form2.Handle тогда компоненты отображаются без надписей