本文整理自网络,侵删。
在FromShow事件上面或者FormCreate事件:
Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
横屏竖屏自动
Application.FormFactor.Orientations := [TFormOrientation.soLandscape];
只横屏
Application.FormFactor.Orientations := [TFormOrientation.soInvertedLandscape];
只竖屏
相关阅读 >>
Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别
Delphi读取webbrowse中的图片显示在image中
更多相关阅读请进入《Delphi》频道 >>