TStyleManager.ActiveStyle ermitteln?

[HCB]

Hallo alle zusammen,
ich wünsche Euch allen ein gesundes und friedliches Neues Jahr!

Auch jetzt am ersten Tag suche ich nach einer Lösung. Mir ist es bis jetzt nicht gelungen, den aktuell aktiv gesetzten Design-Style zu ermitteln.
Was ich gefunden habe ist das hier:
TStyleManager.ActiveStyle (class property ActiveStyle: TCustomStyleServices read GetActiveStyle)

Ich möchte auslesen, welcher Stil gerade aktiv ist.
Mit

Delphi-Quellcode:

if IsCustomStyleActive then showMessage('Kunde') else showMessage('Standard');

kann ich nur feststellen, oder der Standard Windows Stil oder ein benutzergesetzter Stil verwendet wird, eben aber nicht welcher genau.

Kann mir jemand bitte sagen wie ich das gelöst bekomme?
Vielen Dank.

LG Harry

[Olli73]

Geht denn TStyleManager.ActiveStyle.Name nicht?

[HCB]

Ich versuche nur auf ein DBGrid einen Style zur Laufzeit anzuwenden. So in etwa, was aber nicht funktioniert. In der Entwurfansicht kann man den Stylename zu weisen, aber zur Laufzeit bleibt es beim 'alten'.

Delphi-Quellcode:

if TStyleManager.ActiveStyle.name ='windows' then dbg_Article.StyleName:='Auric';

Geht das überhaupt??

LG Harry

[HCB]

Noch immer versuche ich einem DBGrid zur Laufzeit einen anderen Style zuzuweisen.

Delphi-Quellcode:

 dbGrid1.StyleName:='Auric';

In den Projektoptionen sind im Erscheinungsbild zwei Styles verfügbar: Windows und Auric.
Nun möchte ich nur dem Grid den Style 'Auric' verpassen. Im Entwurfsmodus kann ich das machen und funktioniert, jedoch nicht zur Laufzeit.

Ist es überhaupt möglich den Stil einer Komponente zur Laufzeit zu ändern?
Für Unterstützung wäre ich sehr dankbar.

LG Harry

[HCB]

Ok, hab selbst was gefunden:
https://blogs.embarcadero.com/vcl-pe...d-studio-10-4/

LG Harry

[hes]

Bei mir funktioniert es wenn ich irgend einen Style meiner Hauptanwendung zuweise.

Also ein
DBGrid1.StyleName := 'auric';
reagiert und setzt es den Style. Ist der Hauptstyle (Standardstil) der Andwendung "Windows" passiert nichts.