In dem Du AlphaBlend in Formularen NIE auf True setzt, sondern dies Source-Seitig machst, mit einer Anweisung etwa so hier:
Delphi-Quelltext
1:
| AlphaBlend := Assigned(SetLayeredWindowAttributes); |
und Resetten einfach auf False setzen. Gleiches gilt für Nutzung des TransparentColors.
Ein weiterer Fix besteht darin, eine Dummy-Funktion SetLayeredWindowAttributeDummy zu implementieren und diese im Fehlerfalle zuzuweisen:
Delphi-Quelltext
1: 2:
| If @SetLayeredWindowAttributes = nil Then SetLayeredWindowAttributes = @SetLayeredWindowAttributesDummy; |
Irgendwo im Projekt-Quelltext bevor Formulare erzeugt werden. Die Vorsichtsmaßnahme von oben kann dann entfallen.
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.