XP Style, alle Controls haben plötzlich schwarzen Hintergrun

[ringli]

Zitat von skyware:

gibts eigentlich auch ne möglichkeit zu erkennen ob das system mit- oder ohne xp-style läuft?

Delphi-Quellcode:

uses
  Themes;

if (ThemeServices.ThemesAvailable and ThemeServices.ThemesEnabled) then
  begin
    // tue irgendwas
  end;