Показать сообщение отдельно
  #4  
Старый 15.05.2018, 18:52
Аватар для dr. F.I.N.
dr. F.I.N. dr. F.I.N. вне форума
I Like it!
 
Регистрация: 12.12.2009
Адрес: Россия, г. Новосибирск
Сообщения: 660
Версия Delphi: D6/D7
Репутация: 26643
По умолчанию

Тогда на чистом проекте попробуйте:
Код:
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).
__________________
Грамотно поставленный вопрос содержит не менее 50% ответа.
Грамотно поставленная речь вызывает уважение, а у некоторых даже зависть.
Ответить с цитированием