StyleManger verursacht Stack Overflow

[Uwe Raabe]

Zitat von RayEn:

Formular, dass einen Button enthält, der dann StyleManager.TrySetStyle('Sky') aufruft - sobald im (Haupt)Formular pmExplicit gesetzt ist, bekomme man einen Stack Overflow.

Hört sich nach einer guten Vorlage für einen Bugreport an.

[jaenicke]

Ich habe es einmal kurz ausprobiert. Der Stacktrace wird bei mir komplett angezeigt.

Das Problem ist sehr einfach erklärt:
Es wird im Zuge des Änderns des Styles ein CM_RECREATEWND geschickt. Das sorgt dafür, dass das Fensterhandle neu erzeugt wird. Nun ist es dummerweise so, dass TCustomForm.CreateParams so aussieht:

Delphi-Quellcode:

          pmExplicit:
            begin
              if Assigned(FPopupParent) and not (csDesigning in ComponentState) then
              begin
                WndParent := FPopupParent.Handle;
                LParent := FPopupParent;
              end
              else
                WndParent := Application.MainFormHandle;

Sprich, wenn der PopupMode auf pmExplicit steht, wird dort auf Application.MainFormHandle zurückgegriffen. Das existiert ja gerade nicht, also wird dort wiederum ein neues Handle erzeugt, aber dummerweise gibt es das nicht, also wird ein neues Handle erzeugt, aber dummerweise... ihr versteht.

Da ja offenbar immer noch kein Bugreport vorhanden ist (ich konnte auch keinen finden, habe z.B. nach pmExplicit gesucht), habe ich das nun erledigt:
https://quality.embarcadero.com/browse/RSP-39019