本文整理自网络,侵删。
在FromShow事件上面或者FormCreate事件:
Application.FormFactor.Orientations := [TFormOrientation.soLandscape, TFormOrientation.soInvertedLandscape];
横屏竖屏自动
Application.FormFactor.Orientations := [TFormOrientation.soLandscape];
只横屏
Application.FormFactor.Orientations := [TFormOrientation.soInvertedLandscape];
只竖屏
相关阅读 >>
winapi 字符及字符串函数(12): lstrlen - 串长度
Delphi 读取流 image1 stream 加载到image2 timage 对象
更多相关阅读请进入《Delphi》频道 >>