Показать сообщение отдельно
  #5  
Старый 15.05.2018, 19:06
Gareth Gareth вне форума
Активный
 
Регистрация: 21.03.2013
Адрес: Приднестровье
Сообщения: 202
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от dr. F.I.N.
Тогда на чистом проекте попробуйте:
Код:
propcedure TForm1.Button1Click(Sender: TObject);
begin
    ScreenDC := GetDC(0);
    try
      BitBlt(Form1.Canvas.Handle, 0, 0, <Width>, <Height>, ScreenDC, <Left>, <Top>, SRCCOPY);
    finally
      ReleaseDC(0, ScreenDC);
    end;
end;
На чистой форме должно отобразиться то, что заскриншотится (без промежуточных TBitmap).

окошко делает скрин самой себя
Ответить с цитированием