Einzelnen Beitrag anzeigen

Rollo62

Registriert seit: 15. Mär 2007
3.303 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: [FMX] Ändern der FormOrientation per Code

  Alt 1. Jun 2017, 02:15
Hallo Darlo,

versuch mal das
Delphi-Quellcode:
// Sets the possible Screen orientations (Portrait, Landscape, InvertedPortrait, InvertedLandscape);
procedure Form_Orientation_Set2(const orientSet : TScreenOrientations );
var
  ScreenService: IFMXScreenService;

begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then
  begin
    ScreenService.SetScreenOrientation(orientSet);
  end;
end;
Bin mir nicht mehr sicher obs auch eine Drehung des Gerätes erwartet.

Rollo
  Mit Zitat antworten Zitat