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.

[Darlo]

Ah, ok.

Habe jetzt leider auch keine Lösung gefunden.
Das einzigste was mir einfällt ist, entweder das MainForm leer zu lassen und den Content entsprechend später zuweisen oder
im Create des letzten Forms das entsprechende Form einblenden...