jjzjj

TScreenOrientation

全部标签

android - Delphi Android - 检测设备方向变化

DelphiAndroid开发的新手。如何检测屏幕方向已更改?即从肖像到风景,反之亦然?发生这种情况时如何触发代码?例如,我有一张图像,假设在纵向模式下为300x200,但是当设备切换到横向时,我希望它进行调整并占据全屏宽度。 最佳答案 在你的表单中实现一个方法procedureDoOrientationChanged(constSender:TObject;constM:TMessage);你在哪里处理当前方向。像这样订阅FormCreate中的方向变化TMessageManager.DefaultManager.Subscrib

ios - Delphi/Firemonkey 在运行时更改 iOS 屏幕旋转

基本上我想要实现的是当用户在应用程序的某个部分根据需要更改屏幕旋转时,我已经为Andriod工作,但我不明白为什么它不应该为iOS工作procedureTForm1.Button1Click(Sender:TObject);varScreenService:IFMXScreenService;OrientSet:TScreenOrientations;beginifTPlatformServices.Current.SupportsPlatformService(IFMXScreenService,IInterface(ScreenService))thenbeginOrientSet