Поместить объект на рабочий стол

← →
Walker © (2004-03-02 05:06) [0]

Как поместить какой-нибудь объект (скажем Кнопку или Календарь) на Рабочий стол?? Или вообще целое окно "вклеить" в рабочий стол (то есть сделать мое окно Child окном рабочего стола)?

← →
[lamer]Barmaglot © (2004-03-02 09:29) [1]

А зачем? Сделай свое приложение, которое будет содержать календарь, сделай его невидимым с панели задач и запрети менять размеры и перемещать. Получится примерно тоже, а мороки меньше...

Или я чего не понимаю?

← →
Walker © (2004-03-02 11:47) [2]

Менять размеры и перемещать - это не важно... это иногда можно.

Нужно запретить окну сворачиваться и чтобы оно было видно только тогда, когда все остальные окна свернуты, или не закрывают его. То есть я хочу скозать, окно должно иметь свойство, противоположное "Поверх всех остальных окон" (типа BottomMost)

Окно моё должно обрабатывать события с мышки и клавиатуры, и... я тут немного подумал... при его размещении на рабочем столе нужно ещё учитывать расположение иконок на столе...

Вобщем возни много, если это делать так как предложил [lamer]Barmaglot. Нужно мое окно сделать частью рабочего стола.

← →
[lamer]Barmaglot © (2004-03-02 13:09) [3]

Как ты себе это представляешь?

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

← →
Walker © (2004-03-02 13:31) [4]

Ну вот в этот ListView и вклеить...

Хотя у меня уже есть идея. Но над ней надо долго работать (мне по крайней мере): есть в винде такая штука, AppBar называется - это окна-панели типа панели задач, панели быстрого запуска.

← →
[lamer]Barmaglot © (2004-03-02 13:45) [5]

Чтобы что-то сделать, сначала посмотри, смог ли кто-нибудь до тебя сделать что-то подобное. Если есть, приведи ссылку, тогда тебя будет проще понять... А вклеить свое приложение (без жутких извратов) нельзя. Поверь, ответ в №1 самое простое решение...

procedure TForm1.Button1Click(Sender: TObject);
var r:tmonthcalendar;
begin
r:=tmonthcalendar.Create(self);
r.ParentWindow:=windows.GetDesktopWindow;
end;

← →
kothor (2004-04-04 02:26) [7]

Попользуйся MS Spy++. Может что-то накопаешь вроде Handle Рабочего Стола.

Поместить объект на рабочий стол Найти похожие ветки