powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Скриншот формы с olecontainer ... как правильно ?!
3 сообщений из 3, страница 1 из 1
Скриншот формы с olecontainer ... как правильно ?!
    #39580839
KonstF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
День добрый!
Есть форма - на которой лежит olecontainer. В контейнере открыт эксель документ. При создании снимка экрана, делаю так

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
var
  tBM: TBitmap;
begin
  tBM := TBitmap.Create;
  tBM.Width := frTMnT.Width;
  tBM.Height := frTMnT.Height;
  BitBlt(
          tBM.Canvas.Handle,
          0,
          0,
          Screen.Width,
          Screen.Height,
          GetDC( frTMnT.Handle ),
          0,
          0,
          srcCopy
  );
  frTMnT.img.Picture.Assign( tBM );
  tBM.Free;



Получаю снимок в размере формы, но полностью залитый черным цветом.
Подскажите, где не прав?!
...
Рейтинг: 0 / 0
Скриншот формы с olecontainer ... как правильно ?!
    #39580945
KonstF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если кто столкнется - берем здесь http://delphiworld.narod.ru/base/copy_screen.html !

Этот вариант прекрасно работает с OleContainer
...
Рейтинг: 0 / 0
Скриншот формы с olecontainer ... как правильно ?!
    #39581016
Фотография DarkMaster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KonstF,

GetDC( frTMnT.Handle ) попробуй заменить на GetDC(0) - и у тебя должно заработать.
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Скриншот формы с olecontainer ... как правильно ?!
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]