怎麼樣讓delphi for ios開發的應用程式禁止豎屏,也就是想讓它一直橫屏顯示,橫屏是好,一行可以放好幾個控件,表格的話也可以多顯示幾列,看起來友善。
隻要一句代碼就可以讓delphi for ios開發的應用程式禁止豎屏,如下:
application.formfactor.orientations := [tformorientation.solandscape, tformorientation.soinvertedlandscape];
很多時候,需要在ios應用程式剛打開的時候,也就是歡迎界面顯示的時候就要橫屏了,那就要放在工程的代碼中才會起作用:
(工程代碼檢視方法:在工程管理視圖,滑鼠右鍵工程節點,在彈出的菜單中選擇view source)。
program project1;
uses
system.startupcopy,
fmx.forms,
unit1 in 'unit1.pas' {form1};
{$r *.res}
begin
application.initialize;
//放在這裡,禁止豎屏,隻允許橫屏
application.formfactor.orientations := [tformorientation.solandscape, tformorientation.soinvertedlandscape];
application.createform(tform1, form1);
application.run;
end.
當然,你也可以在工程選項中進行設定:
在工程管理視圖中滑鼠右鍵,在彈出的菜單中選擇options…,在左邊的清單中選中application,在右邊面闆區域中的orientation頁,勾選custom
orientation,你就可以勾選它下面的四個選項(portrait,upside down,landscape
home right,landscape home left),其中landscape home right,landscape
home left表示橫屏,portrait,upside down表示豎屏。
當然,它其實也是在工程代碼中加上前面我們講的那句代碼。