本文整理自网络,侵删。
在FromShow事件上面或者FormCreate事件:
Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
横屏竖屏自动
Application.FormFactor.Orientations := [TFormOrientation.soLandscape];
只横屏
Application.FormFactor.Orientations := [TFormOrientation.soInvertedLandscape];
只竖屏
相关阅读 >>
d10环境下调用hidcontroller1.0.35获取数据乱码问题
Delphi xe android下让tmemo不自动弹出键盘
Delphi 取得开机时间 开机时间总长度(可精确到秒,分钟等)
Delphi d10.x 并行库ppl编程之 tparallel.for
更多相关阅读请进入《Delphi》频道 >>