Скачать: CL | DM;

Как рисовать прямо на экране?   Найти похожие ветки 

← →
F1   (2004-10-12 19:48) [0]

Здравствуйте.
Меня интересует как можно сделать, чтоб написать надпись на:
-рабочем столе;
-поверх всех окон;
-в окне другой программы;

Если это возможно то как это осуществить?

---

← →
DVM ©   (2004-10-12 20:03) [1]

> Если это возможно то как это осуществить?

Взять DC нужного окна и используя его рисовать.
GetWindowDC(hWnd)
GetDC(0) - рисовать поверх всего.

---

← →
SammIk ©   (2004-10-12 20:07) [2]

Взять маркер и рисовать где вздумается

---

← →
Пастор   (2004-10-12 20:42) [3]

-рабочем столе;

procedure TFormMain.FormPaint(Sender: TObject);
begin
 PaintDeskTop(Canvas.handle);
end;

---

← →
8ung   (2004-10-12 20:44) [4]

> SammIk ©   (12.10.04 20:07) [2]

Опередил..:(

---

← →
DVM ©   (2004-10-12 20:47) [5]

> Пастор   (12.10.04 20:42) [3]
> -рабочем столе;
>
> procedure TFormMain.FormPaint(Sender: TObject);
> begin
>  PaintDeskTop(Canvas.handle);
> end;


Это не на рабочем столе, это, скорее наоборот, нарисовать в окне сам рабочий стол (фон его)

---

← →
Пастор   (2004-10-12 20:56) [6]

DVM, вы правы, но создается иллюзия, что на рабочем столе ;)

Пример реализации - www.byble.by.ru

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c