Home » Tipps & Tricks » Komponenten » TPanel » Panel mit XPManifest einsetzen

Panel mit XPManifest einsetzen

Um seine Programmoberfläche mit dem XP-Style zu versehen, genügt unter Delphi 7 das Hinzufügen der Komponente TXPManifest. Allerdings werden dadurch alle TPanel-Komponenten transparent. Ist das nicht erwünscht, hilft folgender Code:

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if Components[i] is TPanel then (Components[i] as TPanel).ParentBackground:=false;
end;