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

Форма (окно) сзади всех.. как сделать?   Найти похожие ветки 

← →
SergP ©   (2005-09-08 01:11) [0]

Нужно чтобы окно было сзади всех окон, причем даже сзади иконок на рабочем столе... Как это можно сделать?

---

← →
GanibalLector ©   (2005-09-08 01:20) [1]


protected
 procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 if Assigned(Application.MainForm) then
 begin
   Params.WndParent := GetDesktopWindow;
   Params.Style := WS_CHILD;
 end;
end;
//Взято с сайтаhttp://www.swissdelphicenter.ch/en/tipsindex.php


P.S. На счет иконок ты загнул!

---

← →
SergP ©   (2005-09-08 01:36) [2]

>  [1] GanibalLector ©   (08.09.05 01:20)


Пробовал это... На Delphiworld находил....
Вроде бы почти то, но хотелось бы все-таки позади иконок...


> P.S. На счет иконок ты загнул!


неужели невозможно?

Хочу чтобы на рабочем столе поверх обоев высвечивались всякие полезные надписи, типа напоминания и т.п., но чтобы при этом не мешали работе, поэтому и нужно позади иконок...

---

← →
SergP ©   (2005-09-08 07:32) [3]

Ну тогда хоть подскажите с помощью чего можно такое сделать....

---

← →
SergP ©   (2005-09-08 07:33) [4]

Ну тогда хоть подскажите с помощью чего можно такое сделать....

---

← →
Slym ©   (2005-09-08 08:08) [5]

Хук на WM_PAINT и прочий WM и рисуй прямо не десктопе.

---

← →
DVM ©   (2005-09-08 10:16) [6]

SetShellWindow()

---

← →
DVM ©   (2005-09-08 10:19) [7]

> Вроде бы почти то, но хотелось бы все-таки позади иконок...

Ты что серьезно полагаешь, что иконки сами по себе лежат на поверхности десктопа? И под них можно "подсунуть окно"?
Это у эксплорера в ListView содержащем иконки фон отрисовывается такой же как на десктопе и даже если ты подсунешь свое окно под ListView, последний, отрисовывая свой фон "замажет" изображение твоего окна.

---

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

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



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