AlphaBlend + przyklejenie okna do pulpitu

1

Witam
Do przyklejenia okna do pulpitu używam funkcji:

function Pulpit: THandle;
begin
 result := FindWindow('Progman', nil);
 result := FindWindowEx(result, 0, 'SHELLDLL_DefView', nil);
 result := FindWindowEx(result, 0, 'SysListView32', nil);
end;
Windows.SetParent(Self.Handle, Pulpit);

Teraz gdybym chciał użyć na tym oknie AlphaBlend to okno automatycznie staje się całkowicie niewidoczne?
Czy jest jakiś sposób aby używać obu metod jednocześnie?
Program to ma być mały widget przyklejony do pulpitu z widocznością X a gdy jest aktywny to z widocznością Y

0

Taki luźny pomysł ! A gdyby tak nadpisać CreateParams ? I tam ustawić WndParent i style WS_CHILD ?

0

Rozwiązałem problem nie przyklejając okna do pulpitu, a wysyłając go na sam dół:

SetWindowPos(Handle, HWND_BOTTOM, Left, Top, Width, Height, 0);

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.