| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Control на рабочем столе [D7, WinXP]

Rommel ©   (2006-01-06 23:57:00) 

Как поместиить Сомпанент или форму на рабочий стол вместе с иконками

---

Ivan_123   (2006-01-10 02:24:00) [1]

function GetDesktopListViewHandle: THandle;
var
 S: string;
begin
 Result := FindWindow('ProgMan', nil);
 Result := GetWindow(Result, GW_CHILD);
 Result := GetWindow(Result, GW_CHILD);
 SetLength(S, 40);
 GetClassName(Result, PChar(S), 39);
 if PChar(S) <> 'SysListView32' then
   Result := 0;
end;

//--------------------------------------------
//используем WinAPI а не метод контрола и всё работает
SetParent(Form1.handle,GetDesktopListViewHandle)

---

jack128   (2006-01-10 00:28:00) [2]

alex-drob ©   (07.01.06 0:15) [1]
Remarks

An application can use the SetParent function to set the parent window of a pop-up, overlapped, or child window. The new parent window and the child window must belong to the same application.

---

Vovik   (2006-01-09 20:33:00) [3]

Приготовление:
Сначала устанавливаешь Left и Top компонента, которые
будут у него на десктопе.

1) Получаешь хендл десктопа (windows.GetDesktopWindow)
                                              ||
2) <компонент>.SetParent ( этот  V  хендл  )

                   *** ПРИМЕЧАНИЕ ***
Обработчики событий для этого компонента вроде бы

                      Т Е Р Я Ю Т С Я !

---

alex-drob   (2006-01-07 00:15:00) [4]

setparent

---

Наверх