CJC Delphi 技巧馆's Archiver

cjc Posted at 2018-9-20 10:35

限制App不旋转

限制App不旋转

procedure TMainForm.FormShow(Sender: TObject);
begin
  Application.FormFactor.Orientations := [TFormOrientation.soPortrait];
end;

Page: [1]
CJC好玩背单词最新版本 - 是目前最好的背单词软件,游戏好玩,功能强大,词库众多,还有真人语音,免费下载,免费试用 !

Powered by Discuz! Archiver 6.1.0  © 2001-2007 Comsenz Inc.