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

Новые книги

Нешаблонное мышление. Проверенная методика достижения амбициозных целей

Нешаблонное, или прорывное, мышление – набор стратегий, позволяющих избавиться от ограничений линейного мышления, но в то же время дающих ощутимый эффект. Речь не идет о безудержной креативности, результаты которой сложно применить на практике. Особенность подхода О’Киффа как раз в том, что он на собственном опыте доказал эффективность этой методики в реалиях бизнеса. Это подход практика, а не консультанта.

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

2-е издание.

Ранее книга издавалась под названием «Бизнес-прорыв. Восемь стратегий достижения выдающихся практических результатов».

Интернет-маркетинг по науке. Что, где и когда делать для получения максимального эффекта

Эта книга содержит рекомендации и методы, основанные на научных исследованиях, экспериментах, опросах потребителей и статистики. Автор использует знания из математики, социальной психологии, меметики и других наук и объясняет, почему и, что еще важнее, каким образом следует адаптировать для достижения максимальных результатов свои стратегии интернет-маркетинга: ведение блога, присутствие в соцсетях, почтовый маркетинг и вебинары.

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

Вопрос и Ответ 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;

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

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