Danke Emil für Deine Vorschläge!
Ich habe mir alle Varianten mal in einer Box darstellen lassen, alle lieferten die gleiche Nummer.
Der Fehler, bzw das was irgendwie anders arbeitet ist hier verborgen:
Delphi-Quellcode:
...
@SetWindowCompositionAttribute := GetProcAddress(GetModuleHandle(user32), 'SetWindowCompositionAttribute'); // <- so ruf ich es nun auf
...
if ((FStyleTheme = ThemeSystem) or (FStyleTheme = ThemeWallpaper)) then
accent.GradientColor := FColorBackground
else
accent.GradientColor := FColorText; // das hier musste gesetzt werden damit der hintergrund wieder transparent wird...
so funktioniert es momentan, auch wenn nur dürftig (habe immer noch dein video im hinterstübchen^^)