![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как рисовать прямо на экране? [D5, WinXP]
F1 © (2004-10-12 19:48:00)Здравствуйте.
Меня интересует как можно сделать, чтоб написать надпись на:
-рабочем столе;
-поверх всех окон;
-в окне другой программы;
Если это возможно то как это осуществить?
Пастор (2004-10-12 20:56:00) [1]DVM, вы правы, но создается иллюзия, что на рабочем столе ;)
Пример реализации - www.byble.by.ru
DVM (2004-10-12 20:47:00) [2]
> Пастор (12.10.04 20:42) [3]
> -рабочем столе;
>
> procedure TFormMain.FormPaint(Sender: TObject);
> begin
> PaintDeskTop(Canvas.handle);
> end;
Это не на рабочем столе, это, скорее наоборот, нарисовать в окне сам рабочий стол (фон его)
8ung (2004-10-12 20:44:00) [3]
> SammIk © (12.10.04 20:07) [2]
Опередил..:(
Пастор (2004-10-12 20:42:00) [4]-рабочем столе;
procedure TFormMain.FormPaint(Sender: TObject);
begin
PaintDeskTop(Canvas.handle);
end;
SammIk (2004-10-12 20:07:00) [5]Взять маркер и рисовать где вздумается
DVM (2004-10-12 20:03:00) [6]
> Если это возможно то как это осуществить?
Взять DC нужного окна и используя его рисовать.
GetWindowDC(hWnd)
GetDC(0) - рисовать поверх всего.