Dieser TransparenzCode funktioniert in einem "normalen Fenster":
Delphi-Quellcode:
procedure TMyForm.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;
In einer Deskbar für IE 7/8 funktioniert es leider nicht. Anstatt Transparent, wird die Form schwarz.
ReBar32Wnd wird gefunden (
Handle ist > 0).
Ich hoffe jemand kann helfen. Danke im Voraus!