Delphi XE5 for Android （四）

在Delphi中窗体与窗体之间的交互与调用很是简单，在FMX中这个优点获得了充分体现，先创建一个主窗体和一个须要调用的窗体：

    

 

在主窗体上放的按钮事件以下：

…

private 
  { Private declarations }

  //定义私有窗体对象 
  Ffrm: TfrmOtherFMX;

…

procedure TfrmMainFMX.Button1Click(Sender: TObject); 
begin

  //建立并显示窗体 
  if not Assigned(Ffrm) then 
    Ffrm := TfrmOtherFMX.Create(Self); 
  Ffrm.Show; 
end;

在另一个窗体的按钮事件中关闭：

procedure TfrmOtherFMX.Button1Click(Sender: TObject); 
begin 
  Close; 
end;

效果以下：

  

效果不错，并看出对汉字的支持挺好！

须要注意的是：FMX再也不容许窗体的Modal模式，也就是说窗体都不能经过ShowModal方式显示。