SetPixelsPerInch auch für Windows 10 - die Helper...

[Papaschlumpf73]

So sieht es schon viel einfacher aus. Mit Delphi XE8 geht auch diese Variante. Nur wenn es mit Delphi 10.1 Berlin kompiliert wird, passiert gar nichts und die Anwendung hat die Standardauflösung...

[jaenicke]

Dass solche unsauberen Tricks nicht unbedingt immer weiter funktionieren, ist klar...

Warum benutzt du eigentlich nicht die normale Methode und rufst einfach ScaleBy auf? Da musst du nicht tricksen und die Methode wird offiziell unterstützt. Einzig für ein TPageControl funktioniert diese in Delphi 10.1 nicht:
https://quality.embarcadero.com/browse/RSP-14750

[Papaschlumpf73]

Meine Anwendung hat über 150 Formulare, welche dynamisch bei Bedarf erzeugt und auch wieder freigegeben werden. Dabei verwende ich auch viele PageControls z.B. für Assistenten-Formulare. Ich müsste jetzt für alle Formulare ScaleBy() nach der Erzeugung aufrufen. Das ging mit meiner bisherigen proc wesentlich unkomplizierter - und die PageControls hat's unter Win10 auch nicht zerschossen.

Gibt es evtl. so etwas wie Application.OnCreateForm um die ScaleBy-Aufrufe zu bündeln? Ich müsste sonst alle 150 Forms anpassen.

[jaenicke]

Wir haben das in alle Formulare explizit eingebaut.

Eine Alternative könnte sein, dass du einen Hook z.B. auf TCustomForm.DoShow setzt.

[dummzeuch]

Zitat von Papaschlumpf73:

Gibt es evtl. so etwas wie Application.OnCreateForm um die ScaleBy-Aufrufe zu bündeln? Ich müsste sonst alle 150 Forms anpassen.

Es gibt Screen.OnActiveFormChange, vielleicht hilft das weiter?