Delphi Berlin 10.1 ScaleBy TPageControl

[Olli4362]

Hi,

könnt ihr etwas genauer erklären, wie ihr das Problem gelöst habt?
Die vcl.ComCtrls.pas habe ich in mein Projektverzeichnis kopiert und Zeilen herausgenommen

Delphi-Quellcode:

procedure TPageControl.ChangeScale(M, D: Integer; isDpiChange: Boolean);
var
  I: Integer;
begin
  inherited ChangeScale(M, D, isDpiChange);
//  for I := 0 to FPages.Count - 1 do
//    TTabSheet(Fpages[I]).ChangeScale(M, D, isDpiChange);
end;

DCU wird erstellt, aber es ändert sich an dem Fehler nichts.

Olli