Problem mit Deskbar Transparenz

[Shark99]

Habe nach langen suchen einen anderen Lösungsansatz versucht:

Delphi-Quellcode:

procedure TMyComForm.FormPaint(Sender: TObject);
var
  rect: TRect;
  MyHDC:  hDC;
begin

  if IsThemeActive then
  begin
    rect.Left   := 0;
    rect.Top    := Height - 2;
    rect.Right  := Width;
    rect.Bottom := Height;
    MyHDC         := GetDC(Handle);
    if MyHDC <> 0 then
    begin
      try
        DrawThemeParentBackground(Handle, MyHDC, @rect);
      finally
        ReleaseDC(Handle,MyHDC);
      end;
    end;
  end;
end;

Leider funktioniert es immer noch nicht. Der Hintergrund des Bandes bleibt immer noch grau (WindowsXP Look). Durch debuggen weiss ich dass IsThemeActive() True liefert und myHDC <> 0 ist.