Klicki-Bunti Programmierung bei altem Windows Style

[Andreas L.]

Für Delphi 7 und aufwärts:

Delphi-Quellcode:

uses  ..., Themes;

...
...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if ThemeServices.ThemesAvailable then
    ShowMessage('Themes verfügbar');

  if ThemeServices.ThemesEnabled then
    ShowMessage('Ein Theme ist derzeit aktiviert');
end;