Вопрос и Ответ 55 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Взлом маркетинга. Наука о том, почему мы покупаем

В этой книге поведение потребителей анализируется с помощью современной науки о принятии решений. Автор рассказывает о том, почему люди совершают покупки, что происходит в сознании покупателя, когда он принимает решение, и как можно использовать последние научные знания в своей маркетинговой деятельности.

На русском языке публикуется впервые.

Графика DirectX в Delphi

Вопрос и Ответ 55

Версия для печати

Вопросы и Ответы

55. Можно ли получить растровое изображение формы с заголовком и рамкой?

Стандартные средства Delphi позволяют получать растровое изображение только внутренней части окна. Для получения изображения всего окна с заголовком и рамкой необходимо воспользоваться функциями API.

Во-первых, получаем контекст всего окна функцией:

function GetWindowDC(Wnd: HWnd): HDC;

Затем копируем растровое изображение окна в компонент TImage (для примера). И освобождаем полученный контекст окна:

function ReleaseDC(Wnd: HWnd; DC: HDC): Integer;

Пример:

............

procedure TForm1.Button1Click(Sender: TObject);
VAR DC: hDC;
begin

DC := GetWindowDC(Handle);
Image1.Picture.BitMap.Height := Height;
Image1.Picture.BitMap.Width := Width;
BitBlt(Image1.Picture.BitMap.Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY);
ReleaseDC(Handle, DC);

end;

............

...предыдущая страница следующая...
оглавление