delphi 横竖屏代码控制

unit uMainForm;

interface

uses

System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,

FMX.Controls.Presentation;

type

TForm1 = class(TForm)

Button2: TButton;

DefaultStyleBook: TStyleBook;

Button4: TButton;

ToolBar1: TToolBar;

Label1: TLabel;

procedure Button4Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.FormFactor.Orientations := [TFormOrientation.Portrait];

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Application.FormFactor.Orientations := [TFormOrientation.Landscape];

end;

end.

推荐分享