天天看點

Delphi XE之路(5)讓應用程式禁止豎屏(隻顯示橫屏)

怎麼樣讓delphi for ios開發的應用程式禁止豎屏,也就是想讓它一直橫屏顯示,橫屏是好,一行可以放好幾個控件,表格的話也可以多顯示幾列,看起來友善。

隻要一句代碼就可以讓delphi for ios開發的應用程式禁止豎屏,如下:

Delphi XE之路(5)讓應用程式禁止豎屏(隻顯示橫屏)

application.formfactor.orientations := [tformorientation.solandscape, tformorientation.soinvertedlandscape];  

很多時候,需要在ios應用程式剛打開的時候,也就是歡迎界面顯示的時候就要橫屏了,那就要放在工程的代碼中才會起作用:

(工程代碼檢視方法:在工程管理視圖,滑鼠右鍵工程節點,在彈出的菜單中選擇view source)。

Delphi XE之路(5)讓應用程式禁止豎屏(隻顯示橫屏)

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表示豎屏。

Delphi XE之路(5)讓應用程式禁止豎屏(隻顯示橫屏)

當然,它其實也是在工程代碼中加上前面我們講的那句代碼。

繼續閱讀