Panel mit XPManifest einsetzen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;