本文整理自网络,侵删。
在FromShow事件上面或者FormCreate事件:
Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
横屏竖屏自动
Application.FormFactor.Orientations := [TFormOrientation.soLandscape];
只横屏
Application.FormFactor.Orientations := [TFormOrientation.soInvertedLandscape];
只竖屏 相关阅读 >>
Delphi d10.x 并行库ppl编程之 futures
更多相关阅读请进入《Delphi》频道 >>