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;