Пытаюсь сделать скриншот появляющейся второй формы над первой:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
b: TBitmap;
begin
Form2.Show;
i := 1; // Устанавливаем счетчик
b := TBitmap.Create(); // Создаем объект типа TBitmap
b.Width := Form2.ClientWidth; // Устанавливаем ширину изображения
b.Height := Form2.ClientHeight; // Устанавливаем высоту изображения
b.Canvas.CopyRect(Rect(0, 0, b.Width, b.Height), Form2.Canvas,
Form2.ClientRect); // Копируем канву формы в наш TBitmap
while FileExists(InttoStr(i) + '.bmp') do // Генерируем уникальное имя
inc(i);
b.SavetoFile(InttoStr(i) + '.bmp'); // Сохраняем картинку
b.Free;
end;
На скриншоте второй формы не до конца прорисовываются компоненты (см. картинку).
Также пробовал делать sleep сразу после Form2.Show, но всю задержку я наблюдал непрорисованное окно Form2 - очень странно. я как-то думал, что после Form2.Show форма-то уже должна нарисоваться...
OnShow()