Zugriffsverletzung in Vcl.Styles.TStyleEngine.DoUnregisterStyleHook

[DieDolly]

Ich spiele etwas mit den Styles rum und lade einen zur Laufzeit mit TStyleManager.TrySetStyle().
Ab und zu beim Programmende kommt dann eine Zugriffsverletzung TStyleEngine.DoUnregisterStyleHook(), kann das jemand nachbilden und bestätigen?

D10.3.3 CE.

[Renate Schaaf]

TStyleManager.TrySetStyle gibt dir ein boolean als Resultat zurück. Hast du das mal gecheckt? Zur Laufzeit sollte man glaub ich TStyleManager.SetStyle verwenden, das ruft intern TrySetStyle auf und wirft dir eine exception, wenns nicht funktioniert.

Edit: Vergiss das obige, du solltest in jedem Fall eine Fehlernachricht bekommen, wenns nicht ging. Ich mach jetzt schon länger mit styles rum, die Zugriffsverletzung habe ich nie gesehen. Poste doch mal ein kleines Beispiel.

Gruß, Renate

[DieDolly]

Die Fehlermeldung kommt nicht bei TrySetStyle sondern beim Beenden des programms. Eher selten. Vielleicht 1x bei 100x Programm-Schließen.

[venice2]

Zitat von DieDolly:

Die Fehlermeldung kommt nicht bei TrySetStyle sondern beim Beenden des programms. Eher selten. Vielleicht 1x bei 100x Programm-Schließen.

Kannst ja schnell testen.
Bau ne Test-App und ändere die Styles pro Sekunde.
Kracht es oder nicht.

Oder starte die Anwendung mit neuem Style neu.

Delphi-Quellcode:

  if Restart then
    Result := ShellExecute(0, 'open', PWideChar(ParamStr(0)), nil, nil, SW_SHOW)

[Sum1Nosy]

Zitat von DieDolly:

Die Fehlermeldung kommt nicht bei TrySetStyle sondern beim Beenden des programms. Eher selten. Vielleicht 1x bei 100x Programm-Schließen.

Hast Du mittlerweile die Lösung gefunden?
Ich habe das gleiche Problem. Meine Applikation erlaubt neben der Auswahl von Styles aber auch die Auswahl des "Windows"-Style, d.h. also gar kein Style. Wenn kein Style ausgewählt wurde, kommt der Fehler bei Programmende.