AlphaBlend + przyklejenie okna do pulpitu

AlphaBlend + przyklejenie okna do pulpitu
greenmag
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 353
1

Witam
Do przyklejenia okna do pulpitu używam funkcji:

Kopiuj
function Pulpit: THandle;
begin
 result := FindWindow('Progman', nil);
 result := FindWindowEx(result, 0, 'SHELLDLL_DefView', nil);
 result := FindWindowEx(result, 0, 'SysListView32', nil);
end;
Kopiuj
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

Marius.Maximus
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 2196
0

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

greenmag
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 353
0

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

Kopiuj
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.