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

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

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