Вывод Bitmap на экран без создания окна

← →
Алик (2006-12-13 11:29) [0]

Добрый день,

Как принято во многих прогах, в момент загрузки программы появляется картинка типа About.
Как можно это сделать не создавая дополнительной формы для этого (TForm).

Пробовал следующий вариант

var
DesktopCanvas: TCanvas;
begin
DesktopCanvas := TCanvas.Create;
try
DesktopCanvas.Handle := GetDC(0);
try
DesktopCanvas.MoveTo(0, 0);
DesktopCanvas.LineTo(Screen.Width, Screen.Height);
finally
ReleaseDC(0, DesktopCanvas.Handle);
DesktopCanvas.Handle := 0;
end;
finally
DesktopCanvas.Free;
end;
end;

Но когда начинает что-то появляться на экране, данный рисунок затирается.
Как сделать, чтобы он не исчезал?

← →
DVM © (2006-12-13 11:34) [1]

> Как сделать, чтобы он не исчезал?

Ловушку глобальную поставить на WM_PAINT

> Как можно это сделать не создавая дополнительной формы для
> этого (TForm).

А зачем такое изобретать то? Хочешь сделать окно как в продуктах Adobe? И без регионов?

Лучше так:
1) Сделать скриншот экрана.
2) Создать окно без бордюра
3) Отрисовать на окне часть скриншота
4) Отрисовать сверху свой рисунок с учетом прозрачности
5) Готово.

Вывод Bitmap на экран без создания окна Найти похожие ветки