15.05.2018, 19:06
|
Активный
|
|
Регистрация: 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).
|
окошко делает скрин самой себя
|