Formfamily

[Union]

Danke für die Funktion. Ich will aber feststellen in welcher Ausrichtung sich das Device VOR dem Erzeugen des ersten Formulars befindet - eben um davon abhängig das passende Forumular zu laden. Ich könnte jetzt nactürlich auch pragmatisch vorgehen und als Hauptformular ein Dummy laden, welches dann an das gewünschte Formular weiterleitet.

Im ScreenService sind die Orientierung und die Bildschirmabmessungen konstant, solange nicht mindestens ein Formular geladen wurde:

Delphi-Quellcode:

var
  ScreenService: IFMXScreenService;
  o : TScreenOrientation;
begin
  Application.Initialize;
  Application.CreateForm(TFormVertical, FormVertical);
  Application.CreateForm(TFormHorizontal, FormHorizontal);
  Application.RegisterFormFamily('Main', [TFormHorizontal, TFormVertical]);

  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
    O := ScreenService.GetScreenOrientation; // Funktioniert nicht

  Application.Run;
end.