Transparenz bei DeskBars

[turboPASCAL]

Das klappt schon, halt mit Tricks.

Einfach ein Stück der Taskbar in ein Bitmap kopieren und als Hintergrund verwenden.

zB. schaut das dann so aus:

Delphi-Quellcode:

procedure TfrmDeskBand.FormPaint(Sender: TObject);
var
  ReBar32Wnd: HWND;
  DC: HDC;
begin
  ReBar32Wnd := FindWindowEx(
    FindWindow('Shell_TrayWnd', nil ), 0, 'ReBarWindow32', nil );

  if (ReBar32Wnd <> 0) then
  begin
    DC := GetDC(ReBar32Wnd);

    StretchBlt(Canvas.Handle,
      0, 0, Width, Height,
      DC,
      0, Top, 1, Height,
      SRCCOPY);

    ReleaseDC(ReBar32Wnd, DC);
  end;
end;

Ein Beispiel ? Siehe Anhang.