Android实例-Delphi在运行时更改Android屏幕旋转(IOS也支持，但还没有写，下午我回来加上。不过我可没有苹果机，测试不了)

Posted 2021-03-02 疯狂delphi

相关资料：

https://www.it1352.com/624177.html

 

 1 unit Unit2;
 2 
 3 interface
 4 
 5 uses
 6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
 7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMXTee.Engine,
 8   FMXTee.Procs, FMXTee.Chart, FMX.Layouts, FMX.Controls.Presentation,
 9   FMX.StdCtrls;
10 
11 type
12   TForm2 = class(TForm)
13     Layout1: TLayout;
14     Chart1: TChart;
15     Layout2: TLayout;
16     Button1: TButton;
17     Button2: TButton;
18     Button3: TButton;
19     Button4: TButton;
20     procedure Button1Click(Sender: TObject);
21   private
22     { Private declarations }
23   public
24     { Public declarations }
25   end;
26 
27 var
28   Form2: TForm2;
29 
30 implementation
31 uses
32   FMX.Platform; //需要引入
33 {$R *.fmx}
34 {$R *.LgXhdpiPh.fmx android}
35 
36 procedure TForm2.Button1Click(Sender: TObject);
37 var
38   ScreenService: IFMXScreenService;
39   OrientSet: TScreenOrientations;
40 begin
41   if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService))
42   then
43   begin
44     OrientSet := [TScreenOrientation.soLandscape];
45     ScreenService.SetScreenOrientation(OrientSet);
46   end;
47 end;
48 
49 end.