Control на рабочем столе

← →
Rommel © (2006-01-06 23:57) [0]

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

← →
alex-drob © (2006-01-07 00:15) [1]

setparent

← →
Vovik (2006-01-09 20:33) [2]

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

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

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

Т Е Р Я Ю Т С Я !

← →
jack128 © (2006-01-10 00:28) [3]

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.

← →
Ivan_123 (2006-01-10 02:24) [4]

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)

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